home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / CKEE.MNU < prev    next >
Lisp/Scheme  |  1992-03-14  |  73KB  |  3,209 lines
  1. ***BUTTONS
  2. ;
  3. 'REDRAW 
  4. ^C^C
  5. [B-5]END,MID,CEN,INT,QUI;\
  6. [B-6]NEA;\
  7. [B-7]PERP;\
  8. [B-8]QUAD;\
  9. [B-9]^C^CZQ;
  10. [B-10]^C^CZS;
  11. [B-11]'ZOOM;P;
  12. [B-12]'ZOOM;W;
  13. [B-13]
  14. [B-14]
  15. [B-15]
  16. [B-16]
  17. ***AUX1
  18. ;
  19. $p1=*
  20. ^C^C
  21. ^B
  22. ^O
  23. ^G
  24. ^D
  25. ^E
  26. ^T
  27.  
  28.  
  29. ***POP1
  30. [Tools]
  31. [OSNAP]^C^C$p1= $p1=* OSNAP \
  32. CENter
  33. ENDpoint
  34. INSert
  35. [INTersection]INT
  36. MIDpoint
  37. NEArest
  38. NODe
  39. [PERpendicular]PER
  40. QUAdrant
  41. [QUICK,]QUICK,^Z$p1=*
  42. TANgent
  43. NONE
  44. [~--]
  45. [FILTERS...   ]$p1=filters $p1=*
  46. [Cancel]^C^C
  47. [U]^C^CU
  48. [Redo]^C^CREDO
  49. [List]^C^CLIST
  50.  
  51. **FILTERS
  52. [Filters]
  53. .X
  54. .Y
  55. .Z
  56. .XY
  57. .XZ
  58. .YZ
  59. [TOOLS...]$p1= $p1=*
  60.  
  61. ***POP2
  62. [Draw]
  63. [Line]*^C^C$S=X $s=line line
  64. [Arc]*^C^C$S=X $s=poparc arc
  65. [Circle]*^C^C$S=X $s=popcircl circle
  66. [Polyline]*^C^C$S=X $s=pline pline
  67. [3D Polyline]*^C^C$S=X $S=3dpoly 3dpoly
  68. [Insert]^C^Csetvar attdia 1 $S=X $s=insert
  69. [Dtext]*^C^C$S=X $s=Dtext Dtext
  70. [Hatch...]^C^C$i=hatch1 $i=*
  71. [3D Construction...]$i=3dobjects $i=*
  72.  
  73. ***POP3
  74. [Modify]
  75. [Erase]*^C^C$S=X $s=erase erase si auto
  76. [Move]*^C^C$S=X $s=move move si auto
  77. [Copy]*^C^C$S=X $s=copy copy si auto
  78. [Properties]*^C^C$S=X $S=chprop chprop si auto
  79. [Break]*^C^C$S=X $S=break break
  80. [Fillet]*^C^C$S=X $S=fillet fillet
  81. [Mirror]*^C^C$S=X $S=mirror mirror auto
  82. [Trim]*^C^C$S=X $s=trim trim auto
  83. [Extend]*^C^C$S=X $s=extend extend auto
  84. [Stretch]*^C^C$S=X $s=stretch stretch crossing
  85. [Edit Polylines]^C^C^P+
  86. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  87. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  88. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  89. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  90. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  91. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  92. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  93. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  94. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  95. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  96. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  97. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  98. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  99. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  100. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  101.  
  102. ***POP4
  103. [Display]
  104. [Redraw]'redraw
  105. [~--]
  106. [Zoom Window]'zoom w
  107. [Zoom Previous]'zoom p
  108. [Zoom All]^C^Czoom a
  109. [Zoom Dynamic]'zoom d
  110. [~--]
  111. [Pan]'pan
  112. [Dview Options...]^C^C$i=dviewi $i=*
  113. [Vpoint 3D...]^C^C$S=X $S=VPOINT3D $i=3dviews $i=*
  114. [~--]
  115. [Plan View (UCS)]^C^Cplan;;
  116. [Plan View (World)]^C^Cplan wo
  117. [~--]
  118. [Set Viewports...]^C^C$S=X $S=vports $i=vporti $i=*
  119.  
  120. ***POP5
  121. [Settings]
  122. [UCS Dialogue...]^C^C$S=X $s=ucs1 dducs
  123. [UCS Options...]^C^C$S=X $S=ucs1 $i=ucs $i=*
  124. [UCS Previous]^C^CUCS P
  125. [~--]
  126. [Drawing Aids...]'ddrmodes
  127. [Entity Creation...]'ddemodes
  128. [Modify Layer...]'ddlmodes
  129.  
  130. ***POP6
  131. [Options]
  132. [Ashade...]^C^C^P(progn(setq m:err *error*)(princ))+
  133. (defun *error* (msg)(princ msg)(setq *error* m:err m:err nil)(princ))+
  134. (cond ((null C:SCENE)(vmon)(if (/= nil (findfile "ashade.lsp"));+
  135. (progn (terpri)(prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  136. (menucmd "I=AS")(menucmd "I=*")(setq *error* m:err m:err nil))(progn (terpri);+
  137. (prompt "The file 'Ashade.lsp' was not found in your current search directories.")+
  138. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  139. (setq *error* m:err m:err nil)(princ))))+
  140. (T (setq *error* m:err m:err nil)(menucmd "I=AS")(menucmd "I=*")(princ))) ^P
  141. [Fonts...]^C^C$i=fonts1 $i=*
  142.  
  143. ***POP7
  144. [File ]
  145. [Save ]^C^CSave;
  146. [End  ]^C^Cend
  147. [Quit ]^C^C$S=X $s=quit quit
  148. [~--  ]
  149. [Plot ]^C^Cplot
  150. [Print]^C^Cprplot
  151.  
  152. ***POP8
  153. [UTILITY]
  154. [TOOLS]$P8=NEWPOP9 $P8=*
  155. [SETUP]$P8=NEWPOP10 $P8=*
  156. [~--]
  157. [Utility]
  158. [TEXT EDITOR]^C^C^P(cond((null C:TC)(prompt "Loading...")(LOAD"TC.LSP")) (T (princ))) ^ptc;
  159. [~--]
  160. [TEXT LEADER]^C^C^P(cond((null C:KY)(prompt "Loading...")(LOAD"KY.LSP")) (T (princ))) ^PLD;
  161. [~--]
  162. [MULTI-EXTEND]^C^C^P(cond((null C:ET)(prompt "Loading...")(LOAD"ET.LSP")) (T (princ))) ^PET;E;
  163. [MULTI-TRIM]^C^C^P(cond((null C:ET)(prompt "Loading...")(LOAD"ET.LSP")) (T (princ))) ^PET;T;
  164. [~--]
  165. [MID POINT](MPL) 
  166. [  OF TWO ](MPL) 
  167. [ POINTS  ](MPL) 
  168.  
  169. ***NEWPOP9
  170. [Tools]
  171. [~--]
  172. [draw col. grid]^C^C^P(cond((null C:COL)(prompt "Loading...")(LOAD"COL.LSP")) (T (princ))) ^PCOL;
  173. [wall]^C^Cwl;
  174. [wall center]^C^Cwc;
  175. [door]$i=drsel1 $i=*
  176. [Res. window]^C^C^P(cond((null C:rw)(prompt "Loading...")(LOAD"rw.LSP")) (T (princ))) ^Prw;
  177. [Com. window]^C^C^P(cond((null C:CW)(prompt "Loading...")(LOAD"CW.LSP")) (T (princ))) ^Pcw;
  178. [Furniture]$I=FURN $I=*
  179. [~--]
  180. [PREV. PULLDOWN]^C^C$P8=pop8 $P8=*
  181.  
  182. ***NEWPOP10
  183. [SETUP]
  184. [~--]
  185. [scientfc]^C^C^p(setq a 1);$P8=STDSTP $P8=*
  186. [decimal ]^C^C^p(setq a 2);$P8=STDSTP $P8=*
  187. [enginrng]^C^C^p(setq a 3);$P8=STDSTP $P8=*
  188. [archtect]^C^C^p(setq a 4);$P8=STDSTP $P8=*
  189. [metric  ]^C^C^p(setq a 5);$P8=STDSTP $P8=*
  190. [~--]
  191. [PREV. PULLDOWN]^C^C$P8=pop8 $P8=*
  192.  
  193. ***ICON
  194. **POLY
  195. [Set Polymesh and Polyline Variables]
  196. [acad(pmq)]'setvar surftype 5
  197. [acad(pmc)]'setvar surftype 6
  198. [acad(pmb)]'setvar surftype 8
  199. [acad(plq)]'setvar splinetype 5
  200. [acad(plc)]'setvar splinetype 6
  201. [ Set SPLINESEGS]'setvar splinesegs \
  202. [ Set SPLFRAME]'setvar splframe \
  203. [ Set DENSITY]'setvar surfu \'setvar surfv \
  204. [ Exit]$p3=pop3
  205.  
  206.  
  207. **AS
  208. [Select Ashade Command]
  209. [acad(camera)]^C^C$S=X $S=CAMERA camera \\\$i=as $i=*
  210. [acad(camview)]^C^C$S=X $S=ASHADE camview
  211. [acad(point)]^C^C$S=X $S=LIGHTS LIGHT \p \$i=as $i=*
  212. [acad(directed)]^C^C$S=X $S=LIGHTS LIGHT \d \\$i=as $i=*
  213. [acad(scene)]^C^C$S=X $S=ACTION scene
  214. [acad(filmroll)]^C^C$S=X $S=ACTION filmroll
  215. [ Exit]^c^c
  216.  
  217. **UCS
  218. [User Coordinate System Options]
  219. [ Set to World]^C^Cucs world
  220. [acad(left)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  221. ucs 3p \@0,-1,0 @0,0,1 ^P
  222. [ Set to Screen]^C^Cucs view
  223. [acad(top)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  224. ucs 3p \@1,0,0 @0,1,0 ^P
  225. [acad(front)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  226. ucs 3p \@1,0,0 @0,0,1 ^P
  227. [acad(bottom)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  228. ucs 3p \@1,0,0 @0,-1,0 ^P
  229. [acad(back)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  230. ucs 3p \@-1,0,0 @0,0,1 ^P
  231. [acad(right)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
  232. ucs 3p \@0,1,0 @0,0,1 ^P
  233. [ Exit]^c^c
  234.  
  235. **3DVIEWS
  236. [Select View Direction]
  237. [acad(ul)]^C^CVPOINT R;<<135;
  238. [acad(l)]^C^CVPOINT R;<<180;
  239. [acad(ll)]^C^CVPOINT R;<<225;
  240. [acad(user)]
  241. [acad(u)]^C^CVPOINT R;<<90;
  242. [acad(p)]^C^Cvpoint 0,0,1
  243. [acad(lo)]^C^CVPOINT R;<<270;
  244. [acad(user)]
  245. [acad(ur)]^C^CVPOINT R;<<45;
  246. [acad(r)]^C^CVPOINT R;<<0;
  247. [acad(lr)]^C^CVPOINT R;<<315;
  248. [acad(user)]
  249. [acad(t)]VPOINT;;
  250. [acad(h)]$S=X $S=HIDE
  251. [ Exit]^c^c
  252.  
  253. **DVIEWI
  254. [DVIEW Options]
  255. [acad(dvca)]^C^C$S=X $S=DVIEW select;\dview;p;;ca;\\;
  256. [acad(dvzo)]^C^C$S=X $S=DVIEW select;\dview;p;;z;\;
  257. [acad(dvpa)]^C^C$S=X $S=DVIEW select;\dview;p;;pa;\\;
  258. [ Exit]^c^c
  259.  
  260. **3DOBJECTS
  261. [3D Objects and 3D Surface Commands]
  262. [acad(box3d)]^C^C^P(progn(setq m:err *error*)(prin1))+
  263. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  264. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  265. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  266. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  267. (prompt "Check installation of the Support Files and try again.")+
  268. (princ))))(T (princ)))(cond ((not (null C:BOX))(C:BOX))(T (princ)));+
  269. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  270. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  271. [acad(wedge)]^C^C^P(progn(setq m:err *error*)(princ));+
  272. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  273. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  274. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  275. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  276. (prompt "Check installation of the Support Files and try again.")+
  277. (princ))))(T (princ)))(cond ((not (null C:WEDGE))(C:WEDGE))(T (princ)));+
  278. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  279. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  280. [acad(rev)]^C^C$S=X $S=3D revsurf
  281. [acad(surftab1)]'setvar surftab1 \$I=*
  282. [acad(pyramid)]^C^C^P(progn(setq m:err *error*)(princ))+
  283. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  284. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  285. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  286. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  287. (prompt "Check installation of the Support Files and try again.")+
  288. (princ))))(T (princ)))(cond ((not (null C:PYRAMID))(C:PYRAMID))(T (princ)));+
  289. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  290. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  291. [acad(cone)]^C^C^P(progn(setq m:err *error*)(princ));+
  292. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  293. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  294. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  295. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  296. (prompt "Check installation of the Support Files and try again.")+
  297. (princ))))(T (princ)))(cond ((not (null C:CONE))(C:CONE))(T (princ)));+
  298. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  299. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  300. [acad(rul)]^C^C$S=X $S=3D rulesurf
  301. [acad(surftab2)]'setvar surftab2 \$I=*
  302. [acad(dome)]^C^C^P(progn(setq m:err *error*)(princ));+
  303. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  304. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  305. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  306. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  307. (prompt "Check installation of the Support Files and try again.")+
  308. (princ))))(T (princ)))(cond ((not (null C:DOME))(C:DOME))(T (princ)));+
  309. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  310. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  311. [acad(dish)]^C^C^P(progn(setq m:err *error*)(princ));+
  312. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  313. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  314. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  315. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  316. (prompt "Check installation of the Support Files and try again.")+
  317. (princ))))(T (princ)))(cond ((not (null C:DISH))(C:DISH))(T (princ)));+
  318. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  319. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  320. [acad(edg)]^C^C$S=X $S=3D edgesurf
  321. [acad(mesh)]^C^C^P(progn(setq m:err *error*)(princ));+
  322. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  323. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  324. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  325. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  326. (prompt "Check installation of the Support Files and try again.")+
  327. (princ))))(T (princ)))(cond ((not (null C:MESH))(C:MESH))(T (princ)));+
  328. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  329. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  330. [acad(sphere)]^C^C^P(progn(setq m:err *error*)(princ));+
  331. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  332. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  333. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  334. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  335. (prompt "Check installation of the Support Files and try again.")+
  336. (princ))))(T (princ)))(cond ((not (null C:SPHERE))(C:SPHERE))(T (princ)));+
  337. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  338. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  339. [acad(torus)]^C^C^P(progn(setq m:err *error*)(princ));+
  340. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  341. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  342. (load "3d")(menucmd "S=X")(menucmd "S=3D2"))(progn (terpri)(prompt +
  343. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  344. (prompt "Check installation of the Support Files and try again.")+
  345. (princ))))(T (princ)))(cond ((not (null C:TORUS))(C:TORUS))(T (princ)));+
  346. (setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
  347. (setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
  348. [acad(tab)]^C^C$S=X $S=3D tabsurf
  349. [ Exit]^c^c
  350.  
  351. **FONTS1
  352. [Select Text Font]
  353. [acad(romans)]^c^cstyle romans romans
  354. [acad(romanc)]^c^cstyle romanc romanc
  355. [acad(italicc)]^c^cstyle italicc italicc
  356. [acad(romand)]^c^cstyle romand romand
  357. [acad(romant)]^c^cstyle romant romant
  358. [acad(italict)]^c^cstyle italict italict
  359. [acad(monotxt)]^c^cstyle monotxt monotxt
  360. [ Next]$i=fonts2 $i=*
  361. [ Exit]^c^c
  362.  
  363. **FONTS2
  364. [Select Text Font]
  365. [acad(gothice)]^c^cstyle gothice gothice
  366. [acad(greeks)]^c^cstyle greeks greeks
  367. [acad(scripts)]^c^cstyle scripts scripts
  368. [acad(gothicg)]^c^cstyle gothicg gothicg
  369. [acad(greekc)]^c^cstyle greekc greekc
  370. [acad(scriptc)]^c^cstyle scriptc scriptc
  371. [acad(gothici)]^c^cstyle gothici gothici
  372. [ Next]$i=fonts3 $i=*
  373. [ Exit]^c^c
  374.  
  375. **FONTS3
  376. [Select Text Font]
  377. [acad(syastro)]^c^cstyle syastro syastro
  378. [acad(symath)]^c^cstyle symath symath
  379. [acad(symusic)]^c^cstyle symusic symusic
  380. [acad(symap)]^c^cstyle symap symap
  381. [acad(symeteo)]^c^cstyle symeteo symeteo
  382. [acad(txt)]^c^cstyle txt txt
  383. [acad(user)]
  384. [ Beginning]$i=fonts1 $i=*
  385. [ Exit]^c^c
  386.  
  387. **HATCH1
  388. [Select Hatch Pattern]
  389. [ Previous/User]^c^chatch
  390. [acad(ansi31)]^c^chatch ansi31
  391. [acad(ansi32)]^c^chatch ansi32
  392. [acad(ansi34)]^c^chatch ansi34
  393. [acad(ansi35)]^c^chatch ansi35
  394. [acad(ansi33)]^c^chatch ansi33
  395. [acad(ansi36)]^c^chatch ansi36
  396. [acad(ansi37)]^c^chatch ansi37
  397. [acad(ansi38)]^c^chatch ansi38
  398. [acad(box)]^c^chatch box
  399. [acad(brass)]^c^chatch brass
  400. [acad(brick)]^c^chatch brick
  401. [acad(clay)]^c^chatch clay
  402. [acad(cork)]^c^chatch cork
  403. [ Next]$i=hatch2 $i=*
  404. [ Exit]^c^c
  405.  
  406. **HATCH2
  407. [Select Hatch Pattern]
  408. [acad(cross)]^c^chatch cross
  409. [acad(dash)]^c^chatch dash
  410. [acad(dolmit)]^c^chatch dolmit
  411. [acad(dots)]^c^chatch dots
  412. [acad(earth)]^c^chatch earth
  413. [acad(escher)]^c^chatch escher
  414. [acad(flex)]^c^chatch flex
  415. [acad(grass)]^c^chatch grass
  416. [acad(grate)]^c^chatch grate
  417. [acad(hex)]^c^chatch hex
  418. [acad(honey)]^c^chatch honey
  419. [acad(hound)]^c^chatch hound
  420. [acad(insul)]^c^chatch insul
  421. [acad(line)]^c^chatch line
  422. [ Next]$i=hatch3 $i=*
  423. [ Exit]^c^c
  424.  
  425. **HATCH3
  426. [Select Hatch Pattern]
  427. [acad(mudst)]^c^chatch mudst
  428. [acad(net)]^c^chatch net
  429. [acad(net3)]^c^chatch net3
  430. [acad(plast)]^c^chatch plast
  431. [acad(plasti)]^c^chatch plasti
  432. [acad(sacncr)]^c^chatch sacncr
  433. [acad(square)]^c^chatch square
  434. [acad(stars)]^c^chatch stars
  435. [acad(steel)]^c^chatch steel
  436. [acad(swamp)]^c^chatch swamp
  437. [acad(trans)]^c^chatch trans
  438. [acad(triang)]^c^chatch triang
  439. [acad(zigzag)]^c^chatch zigzag
  440. [acad(angle)]^c^chatch angle
  441. [ Beginning]$i=hatch1 $i=*
  442. [ Exit]^c^c
  443.  
  444. **VPORTI
  445. [Viewport Settings (Current is dominant)]
  446. [acad(vp1)]^C^CVPORTS;SI
  447. [acad(vp3v)]^C^CVPORTS;SI;;3;v
  448. [acad(vp3h)]^C^CVPORTS;SI;;3;h
  449. [acad(vp4)]^C^CVPORTS;SI;;4
  450. [acad(vp2v)]^C^CVPORTS;SI;;2;v
  451. [acad(vp3r)]^C^CVPORTS;SI;;3;r
  452. [acad(vp3l)]^C^CVPORTS;SI;;3;l
  453. [acad(vp4l)]^C^C^PUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
  454. VPORTS;SI;;2;;(setvar "CVPORT" (car (cadr (vports))))(princ);;2;;;J;;+
  455. (car (cadr (vports)));(setvar "CVPORT" (car (cadr (vports))))(princ)+
  456. ;;3;h;(setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT"+
  457. (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);ZOOM;A;+
  458. (setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);+
  459. ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)+
  460. (princ);ZOOM;A;UNDO;E ^P
  461. [acad(vp2h)]^C^CVPORTS;SI;;2;h
  462. [acad(vp3a)]^C^CVPORTS;SI;;3;a;
  463. [acad(vp3b)]^C^CVPORTS;SI;;3;b;
  464. [acad(vp4r)]^C^C^PUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
  465. VPORTS;SI;;2;;;2;;(setvar "CVPORT" (car (caddr (vports))));;j;;+
  466. (car (caddr (vports)));(setvar "CVPORT" (car (cadr (vports))));;3;h;+
  467. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  468. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  469. (setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
  470. (setvar "gridmode" m:g)(princ);ZOOM;A;UNDO;E ^P
  471. [ Join Viewports]^C^CVPORTS;J
  472. [ Restore Saved]^C^CVPORTS;R;
  473. [ List Saved]^C^CVPORTS;?;
  474. [ Exit]^c^c
  475.  
  476. **DRSEL1
  477. [Door selection, PAGE 1]
  478. [sym1(dr1)](setq DRBLK "door2");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  479. [sym1(dr8)]^P(setq DRBLK "door2");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  480. [sym1(dr2)]^P(setq DRBLK "door2");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  481. [sym1(dr7)]^P(setq DRBLK "door2");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  482. [sym1(dr4)]^P(setq DRBLK "door1");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  483. [sym1(dr6)]^P(setq DRBLK "door1");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  484. [sym1(dr3)]^P(setq DRBLK "door1");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  485. [sym1(dr5)]^P(setq DRBLK "door1");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  486. [sym1(dr9)]^P(setq DRBLK "door3");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  487. [sym1(dr10)]^P(setq DRBLK "door3");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  488. [sym1(dr11)]^P(setq DRBLK "door3");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  489. [sym1(dr12)]^P(setq DRBLK "door3");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  490. [ NEXT]$i=drsel2 $i=*
  491. [ EXIT]^c^c
  492.  
  493. **DRSEL2
  494. [Door selection, PAGE 2]
  495. [sym1(dr13)](setq DRBLK "door4");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  496. [sym1(dr14)]^P(setq DRBLK "door4");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  497. [sym1(dr15)]^P(setq DRBLK "door4");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  498. [sym1(dr16)]^P(setq DRBLK "door4");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  499. [sym1(dr17)]^P(setq DRBLK "door5");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  500. [sym1(dr18)]^P(setq DRBLK "door5");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  501. [sym1(dr19)]^P(setq DRBLK "door5");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  502. [sym1(dr20)]^P(setq DRBLK "door5");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  503. [sym1(dr21)]^P(setq DRBLK "door6");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  504. [sym1(dr22)]^P(setq DRBLK "door6")(princ);^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  505. [sym1(dr23)]^P(setq DRBLK "door6")(princ);^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  506. [sym1(dr24)]^P(setq DRBLK "door6");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  507. [ NEXT]$i=drsel3 $i=*
  508. [ EXIT]^c^c
  509.  
  510. **DRSEL3
  511. [Door selection, PAGE 3]
  512. [sym1(dr25)]^P(setq DRBLK "door7");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  513. [sym1(dr26)]^P(setq DRBLK "door7");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  514. [sym1(dr27)]^P(setq DRBLK "door7");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  515. [sym1(dr28)]^P(setq DRBLK "door7");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  516. [sym1(dr29)]^P(setq DRBLK "door8");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  517. [sym1(dr30)]^P(setq DRBLK "door8");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  518. [sym1(dr31)]^P(setq DRBLK "door8");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  519. [sym1(dr32)]^P(setq DRBLK "door8");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  520. [sym1(dr33)]^P(setq DRBLK "door9");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  521. [sym1(dr34)]^P(setq DRBLK "door9");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  522. [sym1(dr35)]^P(setq DRBLK "door9");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  523. [sym1(dr36)]^P(setq DRBLK "door10");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ))) 
  524. [ NEXT]$i=drsel3 $i=*
  525. [ EXIT]^c^c
  526.  
  527. **PLMSEL1
  528. [Plumbing selection]
  529. [sym1(p1)]
  530. [sym1(p2)]
  531. [sym1(p3)]
  532. [sym1(p4)]
  533. [sym1(p5)]
  534. [sym1(p6)]
  535. [ EXIT]^c^c
  536.  
  537. **FURN
  538. [FURNITURE DETAILS]
  539. [FURN(F0001)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0001;\;
  540. [FURN(F0002)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0002;\;
  541. [FURN(F0003)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0003;\;
  542. [FURN(F0004)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0004;\;
  543. [FURN(F0005)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0005;\;
  544. [FURN(F0006)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0006;\;
  545. [FURN(F0007)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0007;\;
  546. [FURN(F0008)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0008;\; 
  547. [FURN(F0009)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0009;\; 
  548. [FURN(FN0001)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0001;\;
  549. [FURN(FN0002)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0002;\;
  550. [FURN(FN0003)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0003;\;
  551. [ NEXT]^c^c$I=FURN2 $I=*
  552. [ EXIT]^c^c
  553.  
  554. **FURN2
  555. [FURNITURE DETAILS]
  556. [FURN(FN0004)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0004;\;
  557. [FURN(FN0005)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0005;\;
  558. [FURN(FN0006)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0006;\;
  559. [FURN(FN0007)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0007;\;
  560. [FURN(FN0008)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0008;\;
  561. [FURN(FN0009)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0009;\;
  562. [FURN(FN0010)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0010;\;
  563. [FURN(FN0004)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0011;\;
  564. [FURN(FN0012)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0012;\;
  565. [FURN(FN0013)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0013;\;
  566. [FURN(FN0014)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0014;\;
  567. [FURN(FN0015)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0015;\;
  568. [FURN(FN0016)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0016;\;
  569. [ NEXT]^c^c$I=FURN3 $I=*
  570. [ EXIT]^c^c
  571.  
  572. **FURN3
  573. [FURNITURE DETAILS]
  574. [FURN(FN0017)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0017;\;
  575. [FURN(FN0008)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0018;\;
  576. [FURN(FN0019)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0019;\;
  577. [FURN(FN0020)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0020;\;
  578. [FURN(FN0021)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0021;\;
  579. [FURN(FN0022)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0022;\;
  580. [FURN(FN0023)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0023;\;
  581. [FURN(FN0024)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0024;\;
  582. [FURN(FN0025)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0025;\;
  583. [FURN(FN0026)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0026;\;
  584. [FURN(FN0027)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0027;\;
  585. [FURN(FN0028)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0028;\;
  586. [FURN(FN0029)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0029;\;
  587. [FURN(FN0030)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0030;\;
  588. [FURN(FN0031)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0031;\;
  589. [ NEXT]^c^c$I=FURN4 $I=*
  590. [ EXIT]^c^c
  591.  
  592. **FURN4
  593. [FURNITURE DETAILS]
  594. [FURN(FN0032)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0032;\;
  595. [FURN(FN0033)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0033;\;
  596. [FURN(LD0001)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/LAND0001;\;
  597. [FURN(LD0002)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/LAND0002;\;
  598. [FURN(LD0003)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/LAND0003;\;
  599. [FURN(LD0004)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/LAND0004;\;
  600. [ BEGINNING]^c^c$I=FURN $I=*
  601. [ EXIT]^c^c
  602.  
  603. **SHTSZE
  604. [SHEET SIZE]
  605. [8.5 x 11]^c^c^p(setq cx 8.5)(setq cy 11.0) (LOAD"sp") 
  606. [11 x 17]^c^c^p(setq cx 17.0)(setq cy 11.0) (LOAD"sp") 
  607. [18 x 24]^c^c^p(setq cx 24.0)(setq cy 18.0) (LOAD"sp") 
  608. [24 x 36]^c^c^p(setq cx 36.0)(setq cy 24.0) (LOAD"sp") 
  609. [30 x 42]^c^c^p(setq cx 42.0)(setq cy 30.0) (LOAD"sp") 
  610. [36 x 48]^c^c^p(setq cx 48.0)(setq cy 36.0) (LOAD"sp") 
  611. [~--]
  612. [BEGINNING]^C^C$P8=POP8 $P8=*
  613.  
  614. **STDSTP
  615. [SCALE]
  616. [~--]
  617. [1/16" = 1'-0"](SETQ b 192) $P8=SHTSZE $P8=*
  618. [1/8" = 1'-0"](SETQ b 96) $P8=SHTSZE $P8=*
  619. [1/4" = 1'-0"](SETQ b 48) $P8=SHTSZE $P8=*
  620. [3/8" = 1'-0"](SETQ b 32) $P8=SHTSZE $P8=*
  621. [1/2" = 1'-0"](SETQ b 24) $P8=SHTSZE $P8=*
  622. [3/4" = 1'-0"](SETQ b 16) $P8=SHTSZE $P8=*
  623. [  1" = 1'-0"](SETQ b 12) $P8=SHTSZE $P8=*
  624. [1 1/2"= 1'-0"](SETQ b 8) $P8=SHTSZE $P8=*
  625. [  3" = 1'-0"](SETQ b 4) $P8=SHTSZE $P8=*
  626. [ FULL SIZE ](SETQ b 1) $P8=SHTSZE $P8=*
  627.  
  628. [PREV. PULLDOWN]^C^C$P8=NEWPOP10 $P8=*
  629.  
  630. ***SCREEN
  631. **S
  632. [AutoCAD]^C^C$S=X $S=S $P1=POP1 $P3=POP3
  633. [* * * *]$S=OSNAPB
  634. [Setup]^C^C^P(progn(prompt "Loading setup...   ")(load "setup")) ^P$S=X $S=UNITS
  635.  
  636. [BLOCKS]$S=X $S=BL
  637. [DIM:]$S=X $S=DIM ^C^CDIM
  638. [DISPLAY]$S=X $S=DS
  639. [DRAW]$S=X $S=DR
  640. [EDIT]$S=X $S=ED
  641. [INQUIRY]$S=X $S=INQ
  642. [LAYER:]$S=X $S=LAYER ^C^CLAYER
  643. [SETTINGS]$S=X $S=SET
  644. [PLOT]$S=X $S=PLOT
  645. [UCS:]$S=X $S=UCS1 ^C^CUCS
  646. [UTILITY]$S=X $S=UT
  647.  
  648. [3D]$S=X $S=3D
  649. [ASHADE]^C^C^P(progn(setq m:err *error*)(prin1))(defun *error* (msg)(princ msg)+
  650. (setq *error* m:err m:err nil)(princ))(cond ((null C:SCENE)(vmon)+
  651. (if (/= nil (findfile "ashade.lsp"))(progn (terpri);+
  652. (prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  653. (menucmd "S=X")(menucmd "S=ASHADE")(setq *error* m:err m:err nil))(progn (terpri);+
  654. (prompt "The file 'Ashade.lsp' was not found in your current search directories.")+
  655. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  656. (setq *error* m:err m:err nil)(princ))))+
  657. (T (setq *error* m:err m:err nil)(menucmd "S=X")(menucmd "S=ASHADE")(princ))) ^P
  658.  
  659. [SAVE:]^C^CSAVE
  660. **X 3
  661.  
  662.  
  663.  
  664.  
  665.  
  666.  
  667.  
  668.  
  669.  
  670.  
  671.  
  672.  
  673.  
  674.  
  675.  
  676. [__LAST__]$S= $S=
  677. [  DRAW  ]^C^C$S=X $S=DR
  678. [  EDIT  ]^C^C$S=X $S=ED
  679. **BL 3
  680. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  681. [BASE:]^C^CBASE
  682. [BLOCK:]$S=X $S=BLOCK ^C^CBLOCK
  683.  
  684.  
  685. [INSERT:]$S=X $S=INSERT ^C^CINSERT 
  686. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  687. [WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK
  688. **DS 3
  689.  
  690. [ATTDISP:]$S=X $S=ATTDISP ^C^CATTDISP
  691. [DVIEW:]$S=X $S=DVIEW ^C^CDVIEW
  692. [PAN:]'PAN
  693. [PLAN:]$S=X $S=PLAN ^C^CPLAN
  694. [REDRAW:]'REDRAW
  695. [REDRALL:]'REDRAWALL
  696. [REGEN:]^C^CREGEN
  697. [REGNALL:]^C^CREGENALL
  698. [RGNAUTO:]$S=X $S=RGNAUTO ^C^CREGENAUTO
  699. [VIEW:]$S=X $S=VIEW 'VIEW
  700. [VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES
  701. [VPOINT:]$S=X $S=VPOINT ^C^CVPOINT
  702. [ZOOM:]$S=X $S=ZOOM 'ZOOM
  703. **DR 3
  704. [ARC]$S=X $S=ARC
  705. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  706. [CIRCLE]$S=X $S=CIRCLE
  707. [DONUT:]^C^CDONUT
  708. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  709. [ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE
  710. [HATCH:]$S=X $S=HATCH ^C^CHATCH
  711. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  712. [LINE:]$S=X $S=LINE ^C^CLINE
  713. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  714. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  715. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  716.  
  717. [next]$S=X $S=DR2
  718. **DR2 3
  719. [POINT:]$S=X $S=POINT ^C^CPOINT
  720. [POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON
  721. [SHAPE:]$S=X $S=SHAPE ^C^CSHAPE
  722. [SKETCH:]$S=X $S=SKETCH ^C^CSKETCH
  723. [SOLID:]$S=X $S=SOLID ^C^CSOLID
  724. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  725. [TRACE:]$S=X $S=TRACE ^C^CTRACE
  726. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  727.  
  728. [3D]$S=X $S=3D
  729.  
  730.  
  731.  
  732. [previous]$S=X $S=DR
  733.  
  734. [__LAST__]$S= $S=
  735. **ED 3
  736. [ARRAY:]$S=X $S=ARRAY ^C^CARRAY
  737. [ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT
  738. [DDATTE:]^C^CDDATTE
  739. [BREAK:]$S=X $S=BREAK ^C^CBREAK
  740. [CHAMFER:]$S=X $S=CHAMFER ^C^CCHAMFER
  741. [CHANGE:]$S=X $S=CHANGE ^C^CCHANGE
  742. [CHPROP:]$S=X $S=CHPROP ^C^CCHPROP
  743. [COPY:]$S=X $S=COPY ^C^CCOPY
  744. [DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE
  745. [ERASE:]$S=X $S=ERASE ^C^CERASE
  746. [EXPLODE:]^C^CEXPLODE
  747. [EXTEND:]$S=X $S=EXTEND ^C^CEXTEND
  748.  
  749. [next]$S=X $S=ED2
  750. **ED2 3
  751. [FILLET:]$S=X $S=FILLET ^C^CFILLET
  752. [MEASURE:]$S=X $S=MEASURE ^C^CMEASURE
  753. [MIRROR:]$S=X $S=MIRROR ^C^CMIRROR
  754. [MOVE:]$S=X $S=MOVE ^C^CMOVE
  755. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  756. [PEDIT:]^C^C^P+
  757. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  758. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  759. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  760. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  761. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  762. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  763. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  764. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  765. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  766. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  767. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  768. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  769. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  770. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  771. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  772. [ROTATE:]$S=X $S=ROTATE ^C^CROTATE
  773. [SELECT:]$S=X $S=SELECT ^C^CSELECT
  774. [SCALE:]$S=X $S=SCALE ^C^CSCALE
  775. [STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C
  776. [TRIM:]$S=X $S=TRIM ^C^CTRIM
  777. [UNDO:]$S=X $S=UNDO ^C^CUNDO
  778.  
  779. [previous]$S=X $S=ED
  780. **INQ 5
  781. [AREA:]$S=X $S=AREA ^C^CAREA
  782. [DBLIST:]^CDBLIST
  783. [DIST:]^C^CDIST
  784. [HELP:]'HELP
  785. [ID:]$S=X $S=ID ^C^CID
  786. [LIST:]$S=X $S=LIST ^C^CLIST
  787. [STATUS:]^C^CSTATUS
  788. [TIME:]^C^CTIME
  789. **SET 3
  790. [DDEMODES]'DDEMODES
  791. [DDRMODES]'DDRMODES
  792. [--------]
  793. [APERTUR:]$S=X $S=APERTURE ^C^CAPERTURE
  794. [AXIS:]$S=X $S=AXIS ^C^CAXIS
  795. [BLIPS:]$S=X $S=BLIPMODE ^C^CBLIPMODE
  796. [COLOR:]$S=X $S=COLOR ^C^CCOLOR
  797. [DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE
  798. [ELEV:]^C^CELEV
  799. [GRID:]$S=X $S=GRID ^C^CGRID
  800. [HANDLES:]$S=X $S=HANDLES ^C^CHANDLES
  801. [LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE
  802. [LIMITS:]$S=X $S=LIMITS ^C^CLIMITS
  803.  
  804. [next]$S=X $S=SET2
  805. **SET2 3
  806. [LTSCALE:]^C^CLTSCALE
  807. [OSNAP:]$S=X $S=OSNAPC ^C^COSNAP
  808. [QTEXT:]$S=X $S=QTEXT ^C^CQTEXT
  809. [SETVAR:]$S=X $S=SETVAR 'SETVAR
  810. [SNAP:]$S=X $S=SNAP ^C^CSNAP
  811. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  812. [TABLET:]$S=X $S=TABLET ^C^CTABLET
  813. [UCS:]$S=X $S=UCS1 ^C^CUCS
  814. [UCSICON:]$S=X $S=UCSICON ^C^CUCSICON
  815. [UNITS:]^CUNITS
  816. [VPORTS:]$S=X $S=VPORTS ^C^CVPORTS
  817.  
  818.  
  819.  
  820. [previous]$S=X $S=SET
  821. **PLOT 3
  822.  
  823. [ C   D]
  824. [ H   E]
  825. [ O   V]
  826. [ O   I]
  827. [ S   C]
  828. [ E   E]
  829.  
  830.  
  831. [PLOTTER]^C^CPLOT
  832.  
  833. [PRINTER]^C^CPRPLOT
  834. **UT 3
  835. [ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT
  836. [DXF/DXB]$S=X $S=DXF
  837. [FILES:]^C^CFILES
  838. [IGES]$S=X $S=IGES
  839. [MENU:]$S=X $S=CHTEMP ^C^CMENU
  840. [PURGE:]$S=X $S=PURGE ^C^CPURGE
  841. [RENAME:]$S=X $S=RENAME ^C^CRENAME
  842. [SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT
  843. [SLIDES]$S=X $S=SLIDES
  844.  
  845. [External]$S=X $S=EXCOMDS
  846. [Commands]$S=X $S=EXCOMDS
  847.  
  848. [END]$S=X $S=END
  849. [QUIT]$S=X $S=QUIT
  850. **OSNAPB 2
  851. [  HELP  ]$S= 'help 
  852. [CENter]CENTER $S=
  853. [ENDpoint]ENDPOINT $S=
  854. [INSert]INSERT $S=
  855. [INTersec]INTERSEC $S=
  856. [MIDpoint]MIDPOINT $S=
  857. [NEArest]NEAREST $S=
  858. [NODe]NODE $S=
  859. [PERpend]PERPEND $S=
  860. [QUAdrant]QUADRANT $S=
  861. [QUICK,]QUICK,^Z
  862. [TANgent]TANGENT $S=
  863. [NONE]NONE $S=
  864. [CANCEL:]^C^C$S=
  865. [U:]^C^CU $S=
  866. [REDO:]^C^CREDO $S=
  867. [REDRAW:]'REDRAW $S=
  868. [SETVAR:]$S= 'SETVAR
  869. [__LAST__]$S=
  870. **BLOCK 3
  871. [BLOCK:]^C^CBLOCK
  872. ?
  873.  
  874. Window
  875. Last
  876. Previous
  877. Crossing
  878. Remove
  879. Add
  880.  
  881. Yes
  882. [OOPS]^C^COOPS
  883. **INSERT 3
  884. [INSERT:]*^C^CINSERT
  885. ?
  886. [*]*\
  887. corner
  888. xyz
  889. drag
  890.  
  891. Scale
  892. Xscale
  893. Yscale
  894. Zscale
  895. Rotate
  896. **WBLOCK 3
  897. [WBLOCK:]^C^CWBLOCK
  898.  
  899. =
  900. *
  901. [blank];
  902.  
  903. Window
  904. Last
  905. Previous
  906. Crossing
  907. Remove
  908. Add
  909. Undo
  910. **MINSERT 3
  911. [MINSERT:]^C^CMINSERT
  912. ?
  913.  
  914. corner
  915. xyz
  916. drag
  917. **DIM 3
  918. [DIM:]^C^CDIM
  919. [DIM1:]^C^CDIM1
  920.  
  921. [LINEAR]$S=X $S=DIMLINEAR
  922. angular
  923. diameter
  924. radius
  925. center
  926. leader
  927. [Dim Vars]$S=X $S=VAR1
  928. [redraw]'REDRAW
  929. status
  930. undo
  931. style
  932. [EXIT]EXIT;$S=X $S=S
  933. [next]$S=X $S=FORMAT
  934. **DIMLINEAR 3
  935. [DIM:]^C^CDIM
  936. [DIM1:]^C^CDIM1
  937.  
  938. horiz
  939. vertical
  940. aligned
  941. rotated
  942.  
  943. [baseline]^C^Cdim BASE
  944. [continue]^C^Cdim CONT
  945.  
  946.  
  947.  
  948. [previous]$S=X $S=DIM
  949. **ATTDEF 3
  950. [ATTDEF:]^C^CATTDEF
  951.  
  952. Invisibl
  953. Constant
  954. Verify
  955. [Preset]P
  956.  
  957. Aligned
  958. [Centered]C
  959. Fit
  960. Middle
  961. Right
  962. Style
  963. **LAYER 3
  964. [DDLMODES]'DDLMODES
  965. [LAYER:]^C^CLAYER
  966. [?]? *
  967.  
  968. Make
  969. Set
  970. New
  971. ON
  972. OFF
  973. [Color]COLOR $S=X $S=LACOLOR \$S=X $S=LAYER
  974. [Chroma]^C^CVSLIDE chroma
  975. [ Restore]'REDRAW
  976. [Ltype]LTYPE $S=X $S=LALT \$S=X $S=LAYER
  977. Freeze
  978. Thaw
  979. **LACOLOR 3
  980. [COLOR]
  981.  
  982. red
  983. yellow
  984. green
  985. cyan
  986. blue
  987. magenta
  988. white
  989.  
  990.  
  991.  
  992.  
  993.  
  994. **LALT 3
  995. [LINETYPE]
  996.  
  997. [contin.]CONTINUOUS
  998. dashed
  999. hidden
  1000. center
  1001. phantom
  1002. dot
  1003. dashdot
  1004. border
  1005. divide
  1006.  
  1007. **ZOOM 3
  1008. [ZOOM:]'ZOOM
  1009.  
  1010. All
  1011. [Center]C
  1012. Dynamic
  1013. Extents
  1014. Left
  1015. Previous
  1016. Window
  1017.  
  1018. Yes
  1019. No
  1020. **ATTDISP 3
  1021. [ATTDISP:]^C^CATTDISP
  1022.  
  1023. Normal
  1024. ON
  1025. OFF
  1026. **DVIEW 3
  1027. [DVIEW:]^C^CDview
  1028.  
  1029. Window
  1030. Last
  1031. Previous
  1032. Crossing
  1033. Remove
  1034. Add
  1035.  
  1036. [By Layer]^P(defun berror (msg)(setq *error* m:err m:err nil)(princ))+
  1037. (progn (setq m:err *error* *error* berror);+
  1038. (setq l(getstring (strcat "Layer name: <" (getvar "clayer") "> ")))+
  1039. (if (= l "")(setq s(ssget "X" (list(cons 8 (getvar "clayer")))))+
  1040. (setq s(ssget "X" (list(cons 8 l)))))(setq *error* m:err m:err nil) s) ^P
  1041. [--------]
  1042. [Dviewblk]^C^CDVIEW;;
  1043.  
  1044. [ Dview ]$S=X $S=DVIEW1
  1045. [Options]$S=X $S=DVIEW1
  1046. **DVIEW1 3
  1047. CAmera
  1048. TArget
  1049. Distance
  1050. POints
  1051. PAn
  1052. Zoom
  1053. TWist
  1054. [CLip]Clip $S=X $S=DVIEW2
  1055. Hide
  1056. Off
  1057. Undo
  1058.  
  1059. [eXit]Exit $S=X $S=S
  1060. **DVIEW2 3
  1061. [Back]Back $S=X $S=BACK
  1062. [Front]Front $S=X $S=FRONT
  1063. [Off]Off $S=X $S=DVIEW1
  1064. **BACK 3
  1065. [ back]
  1066. [clipping]
  1067.  
  1068. [ON]On $S=X $S=DVIEW1
  1069. [OFF]Off $S=X $S=DVIEW1
  1070. **FRONT 3
  1071. [ front]
  1072. [clipping]
  1073.  
  1074. [ON]On $S=X $S=DVIEW1
  1075. [OFF]Off $S=X $S=DVIEW1
  1076.  
  1077. [Eye]Eye $S=X $S=DVIEW1
  1078. **RGNAUTO 3
  1079. [RGNAUTO:]^C^CREGENAUTO
  1080.  
  1081. [ON]On $S=X $S=DS
  1082. [OFF]Off $S=X $S=DS
  1083. **VIEW 3
  1084. [VIEW:]'VIEW
  1085. ?
  1086.  
  1087. [Delete]Delete;
  1088. [Restore]Restore;
  1089. [Save]Save;
  1090. [Window]Window;
  1091. **VPORTS 3
  1092. [VPORTS:]^C^CVPORTS
  1093.  
  1094. Save
  1095. Restore
  1096. Delete
  1097. Join
  1098. Single
  1099. ?
  1100.  
  1101. [2]2 $S=X $S=VP2
  1102. [3]3 $S=X $S=VP3
  1103. 4
  1104. **VP2 3
  1105.  
  1106. [Horizont]H $S=X $S=VPORTS
  1107. [Vertical]V $S=X $S=VPORTS
  1108. **VP3 3
  1109.  
  1110. [Horizont]H $S=X $S=VPORTS
  1111. [Vertical]V $S=X $S=VPORTS
  1112. [Above]A $S=X $S=VPORTS
  1113. [Below]B $S=X $S=VPORTS
  1114. [Left]L $S=X $S=VPORTS
  1115. [Right]R $S=X $S=VPORTS
  1116. **LINE 3
  1117. [LINE:]^C^CLINE
  1118.  
  1119. [continue]^C^CLINE;;
  1120. close
  1121. undo
  1122. .x
  1123. .y
  1124. .z
  1125. .xy
  1126. .xz
  1127. .yz
  1128. **3D 3
  1129. [EDGSURF:]^C^CEDGESURF
  1130. [REVSURF:]^C^CREVSURF
  1131. [RULSURF:]^C^CRULESURF
  1132. [TABSURF:]^C^CTABSURF
  1133.  
  1134. [Surftb1:]'SETVAR SURFTAB1
  1135. [Surftb2:]'SETVAR SURFTAB2
  1136.  
  1137. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  1138. [3DMESH:]^C^C3DMESH
  1139. [3DPOLY:]$S=X $S=3DPOLY ^C^C3DPOLY
  1140.  
  1141. [  3d   ]^C^C^P(progn(setq m:err *error*)(princ))+
  1142. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1143. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1144. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  1145. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  1146. (prompt "Check installation of the Support Files and try again.");+
  1147. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  1148. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  1149. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  1150. [objects]^C^C^P(progn(setq m:err *error*)(princ))+
  1151. (defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1152. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1153. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
  1154. "The file `3d.lsp' was not found in your search path directories. ")(terpri);+
  1155. (prompt "Check installation of the Support Files and try again.");+
  1156. (princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
  1157. (T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
  1158. (menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
  1159.  
  1160. **3D2 3
  1161.  
  1162. Box
  1163. Cone
  1164. Dish
  1165. Dome
  1166. Mesh
  1167. Pyramid
  1168. Sphere
  1169. Torus
  1170. Wedge
  1171. **ELEVTHK 3
  1172. [ELEV:]^C^CELEV
  1173.  
  1174. [CHANGE:]^C^CCHANGE
  1175. Window
  1176. Last
  1177. Previous
  1178. Crossing
  1179. Remove
  1180. Add
  1181. Undo
  1182. [Elev]PROP E
  1183. [Thick]PROP T
  1184. **HIDE 3
  1185. [HIDE ?]
  1186.  
  1187. [YES]^C^CHIDE
  1188. [NO]$S= $S=
  1189. **VPOINT 3
  1190. [VPOINT:]^C^CVPOINT
  1191.  
  1192. [rotate]rotate;
  1193. [axes];
  1194. [plan]none 0,0,1
  1195.  
  1196. [HIDE:]$S=X $S=HIDE
  1197. **VPOINT3D 3
  1198. [ Angle  ]^C^CVPOINT R;;
  1199. [from XY ]^C^CVPOINT R;;
  1200. [ Plane  ]^C^CVPOINT R;;
  1201. [    +80 ]<<80
  1202. [    +60 ]<<60
  1203. [    +45 ]<<45
  1204. [    +30 ]<<30
  1205. [    +10 ]<<10
  1206. [      0 ]<<0.0000001
  1207. [    -10 ]<<350
  1208. [    -30 ]<<330
  1209. [    -45 ]<<315
  1210. [    -60 ]<<300
  1211. [    -80 ]<<280
  1212. **PLINE 3
  1213. [PLINE:]^C^CPLINE
  1214.  
  1215. [Arc]ARC $S=X $S=PARC
  1216. Close
  1217. Halfwid
  1218. Length
  1219. Undo
  1220. Width
  1221.  
  1222. [FILL ON]'SETVAR FILLMODE 1
  1223. [FILL OFF]'SETVAR FILLMODE 0
  1224. **PARC 3
  1225. [POLYARC]
  1226.  
  1227. [angle]$S=X $S=PARCANG A
  1228. [CEnter]$S=X $S=PARCEN CE
  1229. [tanDir]D \DRAG
  1230. [Radius]$S=X $S=PARCRAD R
  1231. [2nd PT]S \DRAG
  1232. [CLose]$S=X $S=PLINE CLOSE
  1233.  
  1234. undo
  1235.  
  1236. [contline]$S=X $S=PLINE L
  1237.  
  1238. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  1239. **PARCANG 3
  1240. [ANGLE]
  1241.  
  1242. [center]$S=X $S=PARC Center drag
  1243. [radius]$S=X $S=PARC R \
  1244. [drag]$S=X $S=PARC drag
  1245. **PARCEN 3
  1246. [CENTER]
  1247.  
  1248. [angle]$S=X $S=PARC A drag
  1249. [length]$S=X $S=PARC L drag
  1250. [drag]$S=X $S=PARC drag
  1251. **PARCRAD 3
  1252. [RADIUS]
  1253.  
  1254. [angle]A \drag $S=X $S=PARC A \drag
  1255. [drag]$S=X $S=PARC drag
  1256. **OFFSET 3
  1257. [OFFSET:]^C^COFFSET
  1258.  
  1259. Through
  1260.  
  1261. [done];
  1262.  
  1263. **ARC 3
  1264. [ARC]
  1265.  
  1266. [3-point:]^C^CARC \\DRAG
  1267. [S,C,E:]^C^CARC \C \DRAG
  1268. [S,C,A:]^C^CARC \C \A DRAG
  1269. [S,C,L:]^C^CARC \C \L DRAG
  1270. [S,E,A:]^C^CARC \E \A
  1271. [S,E,R:]^C^CARC \E \R
  1272. [S,E,D:]^C^CARC \E \D DRAG
  1273. [C,S,E:]^C^CARC C \\DRAG
  1274. [C,S,A:]^C^CARC C \\A DRAG
  1275. [C,S,L:]^C^CARC C \\L DRAG
  1276. [CONTIN:]^C^CARC ;DRAG
  1277. **POPARC 3
  1278. [ARC]
  1279.  
  1280. [3-point:]*^C^CARC \\DRAG
  1281. [S,C,E:]*^C^CARC \C \DRAG
  1282. [S,C,A:]*^C^CARC \C \A DRAG
  1283. [S,C,L:]*^C^CARC \C \L DRAG
  1284. [S,E,A:]*^C^CARC \E \A
  1285.  
  1286.  
  1287. [S,E,R:]*^C^CARC \E \R
  1288. [S,E,D:]*^C^CARC \E \D DRAG
  1289. [C,S,E:]*^C^CARC C \\DRAG
  1290. [C,S,A:]*^C^CARC C \\A DRAG
  1291. [C,S,L:]*^C^CARC C \\L DRAG
  1292. [CONTIN:]^C^CARC ;DRAG
  1293. **CIRCLE 3
  1294. [CIRCLE]
  1295.  
  1296. [CEN,RAD:]^C^CCIRCLE \DRAG
  1297. [CEN,DIA:]^C^CCIRCLE \D
  1298. [2 POINT:]^C^CCIRCLE 2P \DRAG
  1299. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  1300. [TTR:]^C^CCIRCLE TTR
  1301. **POPCIRCL 3
  1302. [CIRCLE]
  1303.  
  1304. [CEN,RAD:]*^C^CCIRCLE \DRAG
  1305. [CEN,DIA:]*^C^CCIRCLE \D
  1306. [2 POINT:]*^C^CCIRCLE 2P \DRAG
  1307. [3 POINT:]*^C^CCIRCLE 3P \\DRAG
  1308. [TTR:]*^C^CCIRCLE TTR
  1309. **ASHADE 3
  1310. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
  1311. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  1312. [ACTION]^C^C$S=X $S=ACTION
  1313.  
  1314. [CAMVIEW:]^C^CCAMVIEW
  1315. **LIGHTS 3
  1316. [LIGHT:]^C^CLIGHT
  1317.  
  1318. [Point]p
  1319. Directed
  1320.  
  1321. [Filters]
  1322. .x
  1323. .y
  1324. .z
  1325. .xy
  1326. .xz
  1327. .yz
  1328.  
  1329. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  1330. [ACTION]$S=X $S=ACTION
  1331. **CAMERA 3
  1332. [CAMERA:]^C^CCAMERA
  1333.  
  1334. [Filters]
  1335.  
  1336. .x
  1337. .y
  1338. .z
  1339. .xy
  1340. .xz
  1341. .yz
  1342.  
  1343. [CAMVIEW:]^C^CCAMVIEW
  1344.  
  1345.  
  1346. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
  1347. [ACTION]$S=X $S=ACTION
  1348. **ACTION 3
  1349. [ACTION]
  1350.  
  1351. [SCENE:]^C^CSCENE
  1352. [FLMROLL:]^C^CFILMROLL
  1353.  
  1354.  
  1355.  
  1356.  
  1357.  
  1358.  
  1359.  
  1360.  
  1361.  
  1362. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
  1363. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  1364. **ELLIPSE 3
  1365. [ELLIPSE:]^C^CELLIPSE
  1366.  
  1367. [Center]C
  1368. Rotation
  1369. Iso
  1370. Diameter
  1371. **POLYGON 3
  1372. [POLYGON:]^C^CPOLYGON
  1373.  
  1374. Edge
  1375. [I-scribe]I
  1376. [C-scribe]C
  1377. **SHAPE 3
  1378. [SHAPE:]^C^CSHAPE
  1379. ?
  1380.  
  1381. [LOAD:]^C^CLOAD
  1382. ?
  1383. **SKETCH 3
  1384. [SKETCH:]^C^CSKETCH
  1385.  
  1386. Connect
  1387. Erase
  1388. Record
  1389.  
  1390. [eXit]x
  1391. Quit
  1392.  
  1393. [------]
  1394. [SKPOLY:]'SETVAR SKPOLY 1
  1395. [SKLINE:]'SETVAR SKPOLY 0
  1396. [------]
  1397. **SOLID 3
  1398. [SOLID:]^C^CSOLID
  1399.  
  1400. [FILL ON]'SETVAR FILLMODE 1
  1401. [FILL OFF]'SETVAR FILLMODE 0
  1402. **TRACE 3
  1403. [TRACE:]^C^CTRACE
  1404.  
  1405. [FILL ON]'SETVAR FILLMODE 1
  1406. [FILL OFF]'SETVAR FILLMODE 0
  1407. **POINT 3
  1408. [POINT:]^C^CPOINT
  1409. .x
  1410. .y
  1411. .z
  1412. .xy
  1413. .xz
  1414. .yz
  1415.  
  1416. [Complex]
  1417. [Points]
  1418. [example:]^C^CVSLIDE points
  1419. [remove]^C^CREDRAW
  1420. [example:]^C^CREDRAW
  1421. [Pdmode:]'SETVAR PDMODE
  1422. [Pdsize:]'SETVAR PDSIZE
  1423. **HATCH 3
  1424. [HATCH:]^C^CHATCH
  1425. ?
  1426.  
  1427. u
  1428. u,o
  1429. u,i
  1430. Yes
  1431.  
  1432. Window
  1433. Last
  1434. Previous
  1435. Crossing
  1436. Remove
  1437. Add
  1438. Undo
  1439. **3DFACE 3
  1440. [3DFACE:]^C^C3DFACE
  1441.  
  1442. .x
  1443. .y
  1444. .z
  1445. .xy
  1446. .xz
  1447. .yz
  1448.  
  1449. [Invisibl]I
  1450.  
  1451. [ShowEdge]^P(setvar "splframe" 1)(prompt "Invisible edges will be SHOWN after next Regeneration.")(princ) ^P
  1452. [HideEdge]^P(setvar "splframe" 0)(prompt "Invisible edges will be HIDDEN after next Regeneration.")(princ) ^P
  1453.  
  1454. **3DPOLY 3
  1455. [3DPOLY:]^C^C3DPOLY
  1456.  
  1457. Close
  1458. Undo
  1459. .x
  1460. .y
  1461. .z
  1462. .xy
  1463. .xz
  1464. .yz
  1465. **ID 3
  1466. [ID:]^C^CID
  1467.  
  1468. .x
  1469. .y
  1470. .z
  1471. .xy
  1472. .xz
  1473. .yz
  1474. **LIMITS 3
  1475.  
  1476. [LIMITS:]^C^CLIMITS
  1477.  
  1478. ON
  1479. OFF
  1480. **UCS1 3
  1481. [UCS:]^C^CUCS
  1482. [DDUCS:]^C^CDDUCS
  1483.  
  1484. ?
  1485. Previous
  1486. Restore
  1487. [Save]S
  1488. Delete
  1489. World
  1490.  
  1491. [RENAME:]^C^CRename UCS
  1492. [Follow:]'SETVAR UCSFOLLOW
  1493.  
  1494. [next]$S=X $S=UCS2
  1495. **UCS2 3
  1496. [UCS:]$S=X $S=UCS1 ^C^CUCS
  1497.  
  1498. Origin
  1499. Zaxis
  1500. 3point
  1501.  
  1502. X
  1503. Y
  1504. Z
  1505.  
  1506. View
  1507. Entity
  1508.  
  1509. [previous]$S=X $S=UCS1
  1510. **UCSICON 3
  1511. [UCSICON:]^C^CUCSICON
  1512.  
  1513. ON
  1514. OFF
  1515.  
  1516. All
  1517. Origin
  1518. Noorigin
  1519. **PLAN 3
  1520. [PLAN:]^C^CPLAN
  1521.  
  1522. Current
  1523. UCS
  1524. World
  1525.  
  1526. [Follow:]'SETVAR UCSFOLLOW
  1527. **LIST 3
  1528. [LIST:]^C^CLIST
  1529.  
  1530. Window
  1531. Last
  1532. Previous
  1533. Crossing
  1534. Remove
  1535. Add
  1536. Undo
  1537. **AREA 3
  1538. [AREA:]^C^CAREA
  1539.  
  1540. Entity
  1541. Add
  1542. Subtract
  1543. **TEXT 3
  1544. [TEXT:]^C^CTEXT
  1545. [DTEXT:]^C^CDTEXT
  1546.  
  1547. aligned
  1548. [centered]C
  1549. fit
  1550. middle
  1551. right
  1552. style
  1553.  
  1554. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1555. **TEXTSET 5
  1556. [DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2
  1557.  
  1558. [REG.TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2
  1559.  
  1560. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1561. **STYLE 3
  1562. [STYLE:]^C^CSTYLE
  1563. ?
  1564.  
  1565. [Fonts]$S=X $S=F1
  1566.  
  1567. Yes
  1568. No
  1569.  
  1570. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  1571. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  1572. **F1 3
  1573. Cyrillic
  1574. Cyriltlc
  1575. Greekc
  1576. Greeks
  1577. Gothice
  1578. Gothicg
  1579. Gothici
  1580. Italicc
  1581. Italict
  1582. Romanc
  1583. Romand
  1584. Romans
  1585.  
  1586.  
  1587.  
  1588.  
  1589. [next]$S=X $S=F2
  1590. [STYLMNU]$S=X $S=STYLE
  1591. **F2 3
  1592. Romant
  1593. Scriptc
  1594. Scripts
  1595. Syastro
  1596. Symap
  1597. Symath
  1598. Symeteo
  1599. Symusic
  1600.  
  1601.  
  1602.  
  1603.  
  1604.  
  1605.  
  1606.  
  1607.  
  1608.  
  1609. [previous]$S=X $S=F1
  1610. [STYLMNU]$S=X $S=STYLE
  1611. **DTEXT 3
  1612. [DTEXT:]^C^CDTEXT
  1613. [TEXT:]^C^CTEXT
  1614.  
  1615. [centered]C
  1616. right
  1617. aligned
  1618. middle
  1619. fit
  1620. style
  1621.  
  1622. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1623. **AXIS 3
  1624. [AXIS:]^C^CAXIS
  1625.  
  1626. [axs=snap]SNAP
  1627.  
  1628. ON
  1629. OFF
  1630. Aspect
  1631. **BLIPMODE 3
  1632. [BLIPS:]^C^CBLIPMODE
  1633.  
  1634. ON
  1635. OFF
  1636. **END 3
  1637. END ?
  1638.  
  1639. [Yes]^C^CEND
  1640. [No]$S=X $S=S
  1641. **QUIT 3
  1642. [QUIT:]^c^cquit
  1643.  
  1644. [Yes]Y
  1645. [No]n $S=X $S=S
  1646. **VAR1 3
  1647. [dimalt]$S=X $S=OF DIMALT \
  1648. [dimaltd]DIMALTD \
  1649. [dimaltf]DIMALTF \
  1650. [dimapost]DIMAPOST \
  1651. [dimaso]$S=X $S=OF DIMASO \
  1652. [dimasz]DIMASZ \
  1653. [--------]
  1654. [dimblk]DIMBLK \
  1655. [dimblk1]DIMBLK1 \
  1656. [dimblk2]DIMBLK2 \
  1657. [--------]
  1658. [dimcen]DIMCEN \
  1659. [dimdle]DIMDLE \
  1660.  
  1661.  
  1662. [dimdli]DIMDLI \
  1663. [dimexe]DIMEXE \
  1664.  
  1665. [next]$S=X $S=VAR2
  1666. [DIMMENU]$S=X $S=DIM
  1667.  
  1668.  
  1669. **VAR2 3
  1670. [dimexo]DIMEXO \
  1671. [dimlfac]DIMLFAC \
  1672. [dimlim]$S=X $S=OF DIMLIM \
  1673. [dimpost]DIMPOST \
  1674. [dimrnd]DIMRND \
  1675. [dimsah]$S=X $S=OF DIMSAH \
  1676. [dimscale]DIMSCALE \
  1677. [dimse1]$S=X $S=OF DIMSE1 \
  1678. [dimse2]$S=X $S=OF DIMSE2 \
  1679. [dimsho]$S=X $S=OF DIMSHO \
  1680. [dimsoxd]$S=X $S=OF DIMSOXD \
  1681. [dimtad]$S=X $S=OF DIMTAD \
  1682. [dimtih]$S=X $S=OF DIMTIH \
  1683. [dimtix]$S=X $S=OF DIMTIX \
  1684.  
  1685. [previous]$S=X $S=VAR1
  1686. [next]$S=X $S=VAR3
  1687. [DIMMENU]$S=X $S=DIM
  1688.  
  1689.  
  1690. **VAR3 3
  1691. [dimtm]DIMTM \
  1692. [dimtofl]$S=X $S=OF DIMTOFL \
  1693. [dimtoh]$S=X $S=OF DIMTOH \
  1694. [dimtol]$S=X $S=OF DIMTOL \
  1695. [dimtp]DIMTP \
  1696. [dimtsz]DIMTSZ \
  1697. [dimtvp]DIMTVP \
  1698. [dimtxt]DIMTXT \
  1699. [dimzin]$S=X $S=DIMZIN DIMZIN \
  1700.  
  1701.  
  1702.  
  1703.  
  1704.  
  1705.  
  1706.  
  1707. [previous]$S=X $S=VAR2
  1708. [DIMMENU]$S=X $S=DIM
  1709. **OF 3
  1710. [ON]$S= $S= ON
  1711.  
  1712. [OFF]$S= $S= OFF
  1713. **DIMZIN 4
  1714. [  New]
  1715. [ Dimzin]
  1716. [ Value]
  1717.  
  1718.  
  1719.  
  1720.  
  1721. [0]$S= $S= 0
  1722. [1]$S= $S= 1
  1723. [2]$S= $S= 2
  1724. [3]$S= $S= 3
  1725. **FORMAT 3
  1726. [DIM:]^C^CDIM
  1727. [DIM1:]^C^CDIM1
  1728.  
  1729. [HOMETEXT]$S=X $S=HOMETEXT HOMETEXT
  1730. [UPDATE]$S=X $S=UPDATE UPDATE
  1731. [NEWTEXT]$S=X $S=NEWTEXT NEWTEXT
  1732.  
  1733.  
  1734.  
  1735.  
  1736.  
  1737.  
  1738.  
  1739.  
  1740.  
  1741. [DIMMENU]$S=X $S=DIM
  1742. **HOMETEXT 3
  1743. [DIM:]^C^CDIM
  1744. [DIM1:]^C^CDIM1
  1745.  
  1746. HOMETEXT
  1747.  
  1748. Window
  1749. Last
  1750. Previous
  1751. Crossing
  1752. Remove
  1753. Add
  1754. Undo
  1755. **UPDATE 3
  1756. [DIM:]^C^CDIM
  1757. [DIM1:]^C^CDIM1
  1758.  
  1759. UPDATE
  1760.  
  1761. Window
  1762. Last
  1763. Previous
  1764. Crossing
  1765. Remove
  1766. Add
  1767. Undo
  1768. **NEWTEXT 3
  1769. [DIM:]^C^CDIM
  1770. [DIM1:]^C^CDIM1
  1771.  
  1772. [NEWTEXT]NEWTEXT
  1773.  
  1774. Window
  1775. Last
  1776. Previous
  1777. Crossing
  1778. Remove
  1779. Add
  1780. Undo
  1781. **LINETYPE 3
  1782. [LINETYP:]^C^CLINETYPE
  1783. ?
  1784.  
  1785. Create
  1786. Load
  1787. [Set]S $S=X $S=CHLT \$S=X $=LINETYPE
  1788.  
  1789. Yes
  1790. No
  1791. **LIMITS 3
  1792. [LIMITS:]^C^CLIMITS
  1793.  
  1794. On
  1795. Off
  1796. **SNAP 3
  1797. [SNAP:]^C^CSNAP
  1798.  
  1799. ON
  1800. OFF
  1801.  
  1802. [Aspect]A;
  1803. [Rotate]R;
  1804.  
  1805. [Style]S;
  1806. [ Iso]Iso;
  1807. [ Standrd]Standard;
  1808. **TABLET 3
  1809. [TABLET:]^C^CTABLET
  1810.  
  1811. cal
  1812. [config]CFG 4 25 9 11 9 9 13 25 7 Y
  1813. [re-cfg]CFG 4 Y 25 9 11 9 9 13 25 7 Y
  1814. ON
  1815. OFF
  1816. Yes
  1817. No
  1818. **OSNAPC 3
  1819. [OSNAP:]^C^COSNAP
  1820.  
  1821. [CENter]CENTER\
  1822. [ENDpoint]ENDPOINT\
  1823. [INSert]INSERT\
  1824.  
  1825. [INTersec]INTERSEC\
  1826. [MIDpoint]MIDPOINT\
  1827. [NEArest]NEAREST\
  1828. [NODe]NODE\
  1829. [PERpend]PERPEND\
  1830. [QUAdrant]QUADRANT\
  1831. [TANgent]TANGENT\
  1832. [NONE]^C^COSNAP NONE $S= $S=
  1833. [Quick,]QUICK,^Z
  1834. [,],\
  1835. **DRAGMODE 3
  1836. [DRAGMODE]^C^CDRAGMODE
  1837.  
  1838. [ON]ON $S=X $S=S
  1839. [OFF]OFF $S=X $S=S
  1840. [Auto]A $S=X $S=S
  1841.  
  1842. **GRID 3
  1843. [GRID:]^C^CGRID
  1844.  
  1845. [grd=snap]SNAP
  1846.  
  1847. ON
  1848. OFF
  1849. Aspect
  1850. **HANDLES 3
  1851. [HANDLES:]^C^CHANDLES
  1852.  
  1853. [ON]ON
  1854. [DESTROY]DESTROY
  1855.  
  1856. **SETVAR 3
  1857. [SETVAR:]^C^CSETVAR
  1858. ?
  1859.  
  1860. ['SETVAR]'SETVAR
  1861. **QTEXT 3
  1862. [QTEXT:]^C^CQTEXT
  1863.  
  1864. ON
  1865. OFF
  1866. [REGEN:]REGEN
  1867. **VIEWRES 3
  1868. [VIEWRES:]^C^CVIEWRES
  1869.  
  1870. No
  1871. Yes
  1872.  
  1873. 100
  1874. 500
  1875.  
  1876. [RGNAUTO:]^C^CREGENAUTO
  1877. [ On]On
  1878. [ Off]Off
  1879. **APERTURE 3
  1880. [APERTUR:]'SETVAR APERTURE
  1881. [PICKBOX:]'SETVAR PICKBOX
  1882.  
  1883. [1]$S= $S= 1
  1884. [2]$S= $S= 2
  1885. [3]$S= $S= 3
  1886. [4]$S= $S= 4
  1887. [5]$S= $S= 5
  1888. [6]$S= $S= 6
  1889. [7]$S= $S= 7
  1890. [8]$S= $S= 8
  1891. [9]$S= $S= 9
  1892. [10]$S= $S= 10
  1893. [15]$S= $S= 15
  1894. **ARRAY 3
  1895. [ARRAY:]^C^CARRAY
  1896.  
  1897. Window
  1898. Last
  1899. Previous
  1900. Crossing
  1901. Remove
  1902. Add
  1903. Undo
  1904.  
  1905. Rectang
  1906. Polar
  1907. Yes
  1908. No
  1909. **ROTATE 3
  1910. [ROTATE:]^C^CROTATE
  1911.  
  1912. Window
  1913. Last
  1914. Previous
  1915. Crossing
  1916. Remove
  1917. Add
  1918. Undo
  1919.  
  1920. Referenc
  1921. **SELECT 3
  1922. [SELECT:]^C^CSELECT
  1923.  
  1924. Window
  1925. Last
  1926. Previous
  1927. Crossing
  1928. Remove
  1929. Add
  1930. Undo
  1931. **SCALE 3
  1932. [SCALE:]^C^CSCALE
  1933.  
  1934. Window
  1935. Last
  1936. Previous
  1937. Crossing
  1938. Remove
  1939. Add
  1940. Undo
  1941.  
  1942. Referenc
  1943. **BREAK 3
  1944. [BREAK:]^C^CBREAK
  1945.  
  1946. First
  1947. @
  1948. **BREAK2P 3
  1949. [BREAK:]^C^CBREAK \F
  1950. **BREAKSPL 3
  1951. [BREAK:]^C^CBREAK \F \@
  1952. **MOVE 3
  1953. [MOVE:]^C^CMOVE
  1954.  
  1955. Window
  1956. Last
  1957. Previous
  1958. Crossing
  1959. Remove
  1960. Add
  1961. Undo
  1962. **COPY 3
  1963. [COPY:]^C^CCOPY
  1964.  
  1965. Window
  1966. Last
  1967. Previous
  1968. Crossing
  1969. Remove
  1970. Add
  1971. Undo
  1972.  
  1973. Multiple
  1974. **UNDO 3
  1975. [UNDO:]^C^CUNDO
  1976.  
  1977. [Back 1]^C^CUNDO 1
  1978.  
  1979. [Auto]$S=X $S=UNDOA Auto
  1980. Back
  1981. End
  1982. Group
  1983. Mark
  1984. [Control]$S=X $S=UNDOC Control
  1985.  
  1986. Yes
  1987. No
  1988.  
  1989. [REDO:]REDO
  1990. **UNDOC 3
  1991. All
  1992. None
  1993. One
  1994. **UNDOA 3
  1995. On 
  1996. Off
  1997. **ERASE 3
  1998. [ERASE:]^C^CERASE
  1999.  
  2000. Window
  2001. Last
  2002. Previous
  2003. Crossing
  2004. Remove
  2005. Add
  2006. Undo
  2007.  
  2008. [OOPS:]^C^COOPS
  2009. **PSEL 3
  2010.  
  2011. Window
  2012. Last
  2013. Crossing
  2014.  
  2015. Yes
  2016. No
  2017. **P0 3
  2018. [PEDIT:]^C^C^P+
  2019. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  2020. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  2021. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  2022. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  2023. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  2024. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  2025. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  2026. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  2027. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  2028. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  2029. (progn (setq m:pb (/ m:pbl)(menucmd "S=P0");+
  2030. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  2031. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  2032. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  2033. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  2034. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  2035.    
  2036. Close
  2037. Open
  2038. Join
  2039. Width
  2040. [Ed Vrtx]E $S=X $S=PVERTED
  2041. [Fit Curv]Fit
  2042. Spline
  2043. Decurve
  2044. [Undo]U
  2045. [eXit]X $S=X $S=S
  2046.  
  2047. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  2048. **P8 3
  2049. [PEDIT:]^C^C^P+
  2050. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  2051. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  2052. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  2053. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  2054. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  2055. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  2056. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  2057. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  2058. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  2059. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  2060. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  2061. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  2062. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  2063. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  2064. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  2065.  
  2066. Close
  2067. Open
  2068. [Ed Vrtx]E $S=X $S=3DPVERTED
  2069. Spline
  2070. Decurve
  2071. [Undo]U
  2072. [eXit]X $S=X $S=S
  2073.  
  2074. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  2075. **P16 3
  2076. [PEDIT:]^C^C^P+
  2077. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  2078. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  2079. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  2080. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  2081. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  2082.  
  2083. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  2084. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  2085. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  2086. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  2087. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  2088. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  2089. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  2090. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  2091. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  2092. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  2093.  
  2094. [Ed Vrtx]E $S=X $S=3DMVERTED
  2095. Smooth
  2096. Desmooth
  2097. [Mclose]M
  2098. [Nclose]N
  2099. [Mopen]M
  2100. [Nopen]N
  2101.  
  2102. [Undo]U
  2103. [eXit]X $S=X $S=S
  2104.  
  2105. [PolyVars]$S=X $S=PVARS $i=poly $i=*
  2106. **PVERTED 3
  2107. [ED VRTX]
  2108.  
  2109. Next
  2110. Previous
  2111. Break
  2112. Insert
  2113. Move
  2114. Straight
  2115. Width
  2116. Tangent
  2117.  
  2118. Go
  2119. Regen
  2120. [Undo]X U $S=X $S=P0
  2121. [eXit]X $S=X $S=P0
  2122. **3DPVERTED 3
  2123. [ED VRTX]
  2124.  
  2125. Next
  2126. Previous
  2127. Break
  2128. Insert
  2129. Move
  2130. Regen
  2131. Straight
  2132. [eXit]X $S=X $S=P8
  2133. **3DMVERTED 3
  2134. [ED VRTX]
  2135.  
  2136.  
  2137.  
  2138.  
  2139. Next
  2140. Previous
  2141. Left
  2142. Right
  2143. Up
  2144. Down
  2145. Move
  2146. Regen
  2147. [eXit]X $S=X $S=P16
  2148. **PVARS 3
  2149. [Polyvars]$i=poly $i=*
  2150.  
  2151. [SPLframe]'SETVAR SPLFRAME
  2152. [ On]1
  2153. [ Off]0
  2154. [SPLsegs]'SETVAR SPLINESEGS
  2155. [SPLtype]'SETVAR SPLINETYPE
  2156.  
  2157. [ Quad]5
  2158. [ Cubic]6
  2159. [SURFtype]'SETVAR SURFTYPE
  2160. [ Quad]5
  2161. [ Cubic]6
  2162. [ Bezier]8
  2163. [UDensity]'SETVAR SURFU
  2164. [VDensity]'SETVAR SURFV
  2165. **TRIM 3
  2166. [TRIM:]^C^CTRIM
  2167.  
  2168. Window
  2169. Last
  2170. Previous
  2171. Crossing
  2172. Remove
  2173. Add
  2174. Undo
  2175. **ATTEXT 3
  2176. [ATTEXT:]^C^CATTEXT
  2177.  
  2178. CDF
  2179. SDF
  2180. DXF
  2181. [Entities]Ent
  2182.  
  2183. Window
  2184. Last
  2185. Previous
  2186. Crossing
  2187. Remove
  2188. Add
  2189. Undo
  2190. **SLIDES 3
  2191. [MSLIDE:]^C^CMSLIDE
  2192.  
  2193. [VSLIDE:]^C^CVSLIDE
  2194.  
  2195. **SCRIPT 3
  2196. [SCRIPT:]^C^CSCRIPT
  2197.  
  2198.  
  2199. [RESUME:]'RESUME
  2200. [RSCRIPT:]^C^CRSCRIPT
  2201. **PURGE 3
  2202. [PURGE:]^C^CPURGE
  2203.  
  2204. Blocks
  2205. LAyers
  2206. LTypes
  2207. SHapes
  2208. STyles
  2209. All
  2210.  
  2211. Yes
  2212. No
  2213. **RENAME 3
  2214. [RENAME:]^C^CRENAME
  2215.  
  2216. Block
  2217. LAyer
  2218. LType
  2219. Style
  2220. Ucs
  2221. VIew
  2222. VPort
  2223.  
  2224. **DXF 3
  2225. [DXFIN:]^C^CDXFIN
  2226.  
  2227. [DXFOUT:]^C^CDXFOUT
  2228. 16
  2229. Entities
  2230.  
  2231. Window
  2232. Last
  2233. Previous
  2234. Crossing
  2235. Remove
  2236. Add
  2237. Undo
  2238.  
  2239. [DXBIN:]^C^CDXBIN
  2240. **IGES 3
  2241. [IGESIN:]^C^CIGESIN
  2242.  
  2243. [IGESOUT:]^C^CIGESOUT
  2244. **EXTEND 3
  2245. [EXTEND:]^C^CEXTEND
  2246.  
  2247. Window
  2248. Last
  2249. Previous
  2250. Crossing
  2251. Remove
  2252. Add
  2253. Undo
  2254.  
  2255. [SELECT:]^C^CSELECT
  2256. [ZOOM W:]'ZOOM W
  2257. **STRETCH 3
  2258. [STRETCH:]^C^CSTRETCH C
  2259.  
  2260. Window
  2261. Last
  2262. Previous
  2263. Crossing
  2264. Remove
  2265. Add
  2266. Undo
  2267. **MIRROR 3
  2268. [MIRROR:]^C^CMIRROR
  2269. Window
  2270. Last
  2271. Previous
  2272. Crossing
  2273. Remove
  2274. Add
  2275. Undo
  2276.  
  2277. Yes
  2278.  
  2279. No
  2280. **FILLET0ILLET0 3
  2281. [FILLET:0]^C^CFILLET R 0;;
  2282.  
  2283. [polyline]P
  2284.  
  2285. **FILLET 3
  2286. [FILLET:]^C^CFILLET
  2287.  
  2288. [radius]R \FILLET
  2289. [radius 0]R 0 FILLET
  2290. polyline
  2291. **CHAMFER 3
  2292. [CHAMFER:]^C^CCHAMFER
  2293.  
  2294. [distance]D \\CHAMFER
  2295. [dist = 0]D 0 0 CHAMFER
  2296. polyline
  2297. **DIVIDE 3
  2298. [DIVIDE:]^C^CDIVIDE
  2299.  
  2300. Block
  2301. Yes
  2302. No
  2303. **MEASURE 3
  2304. [MEASURE:]^C^CMEASURE
  2305.  
  2306. Block
  2307. Yes
  2308. No
  2309. **CHANGE 3
  2310. [CHANGE:]^C^CCHANGE
  2311. Window
  2312. Last
  2313. Previous
  2314. Crossing
  2315. Remove
  2316. Add
  2317. Undo
  2318. [Color]PROP COLOR $S=X $S=CHCOLOR \ $S=X $S=CHANGE
  2319. [Chroma]^C^CVSLIDE chroma
  2320. [ Restore]^C^CREDRAW
  2321. [Elev]PROP ELEV
  2322. [LAyer]PROP LAYER
  2323. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHANGE
  2324. [Thicknes]PROP THICKNESS
  2325. **CHPROP 3
  2326. [CHPROP:]^C^CCHPROP
  2327. Window
  2328. Last
  2329. Previous
  2330. Crossing
  2331. Remove
  2332. Add 
  2333. Undo
  2334. [Color]PROP COLOR $S=X $S=CHCOLOR \$S=X $S=CHPROP
  2335. [Chroma]^C^CVSLIDE chroma
  2336. [ Restore]^C^CREDRAW
  2337. [LAyer]PROP LAYER
  2338. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHPROP
  2339. [Thicknes]PROP THICKNESS
  2340. **CHCOLOR 3
  2341. [COLOR]
  2342.  
  2343. bylayer
  2344. byblock
  2345.  
  2346. red
  2347. yellow
  2348. green
  2349.  
  2350. cyan
  2351. blue
  2352. magenta
  2353. white
  2354. **CHLT 3
  2355. [LTYPE]
  2356.  
  2357. bylayer
  2358. byblock
  2359.  
  2360. [contin.]CONTINUOUS
  2361. dashed
  2362. hidden
  2363. center
  2364. phantom
  2365. dot
  2366. dashdot
  2367. border
  2368. divide
  2369.  
  2370. **COLOR 3
  2371. [COLOR:]^C^CCOLOR
  2372. bylayer
  2373. byblock
  2374. red
  2375. yellow
  2376. green
  2377. cyan
  2378. blue
  2379. magenta
  2380. white
  2381.  
  2382. [Chroma]^C^CVSLIDE chroma
  2383. [ Restore]^C^CREDRAW
  2384. **ATTEDIT 3
  2385. [ATTEDIT:]^C^CATTEDIT
  2386. Window
  2387. Last
  2388. Crossing
  2389. Remove
  2390. Add
  2391. Undo
  2392.  
  2393. [Value]Value $S=X $S=ATTEDIT2
  2394. Position
  2395. Height
  2396. Angle
  2397. Style
  2398. Layer
  2399. [Color] $S=X $S=ATTCOLOR C
  2400. Next
  2401.  
  2402. [__LAST__]$S= $S=
  2403. **ATTEDIT2 3
  2404.  
  2405. [Change]Change $S=X $S=ATTEDIT
  2406. [Replace]Replace $S=X $S=ATTEDIT
  2407. **ATTCOLOR 3
  2408. [COLOR]
  2409.  
  2410. [red]RED $S= $S=
  2411. [yellow]YELLOW $S= $S=
  2412. [green]GREEN $S= $S=
  2413. [cyan]CYAN $S= $S=
  2414. [blue]BLUE $S= $S=
  2415. [magenta]MAGENTA $S= $S=
  2416. [white]WHITE $S= $S=
  2417. **UNITS 2
  2418.  
  2419. [UNIT    ]
  2420. [TYPE    ]
  2421.  
  2422. [scientfc]1;
  2423.  
  2424. [decimal ]2;
  2425.  
  2426.  
  2427. [enginrng]3;
  2428.  
  2429. [archtect]4;
  2430.  
  2431. [metric  ]5;
  2432.  
  2433.  
  2434.  
  2435.  
  2436.  
  2437.  
  2438. **U1 2
  2439.  
  2440. [Scientfc]
  2441. [Scale   ]
  2442.  
  2443.  
  2444. [4 TIMES ]4.0;
  2445.  
  2446. [2 TIMES ]2.0;
  2447.  
  2448. [FULL    ]1.0;
  2449.  
  2450. [HALF    ]0.5;
  2451.  
  2452.  
  2453.  
  2454. [QUARTER ]0.25;
  2455.  
  2456. [OTHER   ]^P0;^P
  2457.  
  2458.  
  2459.  
  2460.  
  2461. **U2 2
  2462.  
  2463. [Decimal ]
  2464. [Scale   ]
  2465.  
  2466.  
  2467. [4 TIMES ]4.0;
  2468.  
  2469. [2 TIMES ]2.0;
  2470.  
  2471. [FULL    ]1.0;
  2472.  
  2473. [HALF    ]0.5;
  2474.  
  2475. [QUARTER ]0.25;
  2476.  
  2477. [OTHER   ]^P0;^P
  2478.  
  2479.  
  2480.  
  2481.  
  2482. **U3 2
  2483.  
  2484. [Enginrng]
  2485.  
  2486. [Scale   ]
  2487.  
  2488.  
  2489. [1"=10'  ]120.0;
  2490. [1"=20'  ]240.0;
  2491.  
  2492. [1"=30'  ]360.0;
  2493. [1"=40'  ]480.0;
  2494.  
  2495. [1"=50'  ]600.0;
  2496. [1"=60'  ]720.0;
  2497.  
  2498. [1"=80'  ]960.0;
  2499. [1"=100' ]1200.0;
  2500.  
  2501. [OTHER   ]^P0;^P
  2502.  
  2503.  
  2504. **U4 2
  2505.  
  2506. [Archtect]
  2507.  
  2508.  
  2509. [1/40"=1']480.0;
  2510. [1/20"=1']240.0;
  2511. [1/16"=1']192.0;
  2512. [ 1/8"=1']96.0;
  2513. [ 1/4"=1']48.0;
  2514.  
  2515. [ 1/2"=1']24.0;
  2516. [ 3/4"=1']16.0;
  2517. [   1"=1']12.0;
  2518. [   3"=1']4.0;
  2519. [   6"=1']2.0;
  2520. [  FULL  ]1.0;
  2521.  
  2522. [OTHER...]^P0;^P
  2523.  
  2524.  
  2525. **U5 2
  2526.  
  2527. [Metric  ]
  2528.  
  2529. [ 1:5000 ]5000.0;
  2530. [ 1:2000 ]2000.0;
  2531. [ 1:1000 ]1000.0;
  2532. [ 1:500  ]500.0;
  2533. [ 1:200  ]200.0;
  2534.  
  2535. [ 1:100  ]100.0;
  2536. [ 1:75   ]75.0;
  2537. [ 1:50   ]50.0;
  2538. [ 1:20   ]20.0;
  2539. [ 1:10   ]10.0;
  2540. [ 1:5    ]5.0;
  2541. [  FULL  ]1.0;
  2542.  
  2543. [OTHER...]^P0;^P
  2544.  
  2545.  
  2546. **ENGLISH 2
  2547.  
  2548. [Horizntl]
  2549.  
  2550. [ Sheet  ]
  2551. [ Size   ]
  2552.  
  2553. [A-8.5x11]11.0 8.5;
  2554. [B- 11x17]17.0 11.0;
  2555. [C- 17x22]22.0 17.0;
  2556. [   18x24]24.0 18.0;
  2557.  
  2558. [D- 22X34]34.0 22.0;
  2559. [   24x36]36.0 24.0;
  2560. [E- 34x44]44.0 34.0;
  2561.  
  2562.  
  2563.  
  2564.  
  2565.  
  2566.  
  2567.  
  2568.  
  2569.  
  2570.  
  2571.  
  2572.  
  2573.  
  2574. [OTHER...]^P0 0;^P
  2575.  
  2576. [VERTCAL>]$S=X $S=ENGVERT
  2577.  
  2578.  
  2579. **ENGVERT 2
  2580.  
  2581. [Vertical]
  2582.  
  2583. [ Sheet  ]
  2584. [ Size   ]
  2585.  
  2586. [A-8.5x11]8.5 11.0;
  2587. [B- 11x17]11.0 17.0;
  2588. [C- 17x22]17.0 22.0;
  2589. [   18x24]18.0 24.0;
  2590.  
  2591. [D- 22X34]22.0 34.0;
  2592. [   24x36]24.0 36.0;
  2593. [E- 34x44]34.0 44.0;
  2594.  
  2595. [OTHER...]^P0 0;^P
  2596.  
  2597. [HORZNTL>]$S=X $S=ENGLISH
  2598.  
  2599.  
  2600. **METRIC 2
  2601.  
  2602. [Horizntl]
  2603.  
  2604. [ Sheet  ]
  2605. [ Size   ]
  2606.  
  2607. [1189x841]1189.0 841.0;
  2608. [1000x707]1000.0 707.0;
  2609. [ 841x594]841.0 594.0;
  2610.  
  2611. [ 594x420]594.0 420.0;
  2612. [ 420x297]420.0 297.0;
  2613. [ 297x210]297.0 210.0;
  2614.  
  2615. [OTHER...]^P0 0;^P
  2616.  
  2617.  
  2618. [VERTCAL>]$S=X $S=METRICVERT
  2619.  
  2620.  
  2621. **METRICVERT 2
  2622.  
  2623. [Vertical]
  2624.  
  2625. [ Sheet  ]
  2626. [ Size   ]
  2627.  
  2628. [1189x841]841.0 1189.0;
  2629. [1000x707]707.0 1000.0;
  2630. [ 841x594]594.0 841.0;
  2631.  
  2632. [ 594x420]420.0 594.0;
  2633. [ 420x297]297.0 420.0;
  2634. [ 297x210]210.0 297.0;
  2635.  
  2636. [OTHER...]^P0 0;^P
  2637.  
  2638.  
  2639. [HORZNTL>]$S=X $S=METRIC
  2640.  
  2641.  
  2642. **CHTEMP 3
  2643. [Change  ]
  2644.  
  2645. [Template]
  2646.  
  2647. [Arch...]^C^C^P(progn(if v:acam(progn(command "menu" (strcat v:acam "aec-a"))+
  2648. (prompt "AEC Architectural loaded."))(prompt "AEC Architectural not available.")+
  2649. )(princ)) ^P
  2650. [Mech...]^C^C^P(progn(if v:acmm(progn(command "menu" (strcat v:acmm "aec-m"))+
  2651. (prompt "AEC Mechanical loaded."))(prompt "AEC Mechanical not available.")+
  2652. )(princ)) ^P
  2653. **EXCOMDS 3
  2654. [CATALOG:]^C^CCATALOG
  2655. [DEL:]^C^CDEL
  2656. [DIR:]^C^CDIR
  2657. [EDIT:]^C^CEDIT
  2658. [SH:]^C^CSH
  2659. [SHELL:]^C^CSHELL
  2660. [TYPE:]^C^CTYPE
  2661.  
  2662.  
  2663.  
  2664. ***TABLET1
  2665. [T1-1]
  2666. [T1-2]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P001;DRAG;\1;1;\
  2667. [T1-3]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P002;DRAG;\1;1;\
  2668. [T1-4]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P017;DRAG;\1;1;\
  2669. [T1-5]^C
  2670. [T1-6]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XES;NEAR;\1;1;\
  2671. [T1-7]*^C^CLAYER;M;CR;;insert;c:/KESYM1/4MRX;NEAR;\1;1;\
  2672. [T1-8]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XWJ-BOX;DRAG;\1;1;\
  2673. [T1-9]^C
  2674. [T1-10]^C
  2675. [T1-11]*^C^CLAYER;M;SA;;insert;c:/KESYM1/HVAC-1;INTE;\1;1;\
  2676. [T1-12]*^C^CLAYER;M;RA;;insert;c:/KESYM1/HVAC-3;INTE;\1;1;\
  2677. [T1-13]^C^C
  2678. [T1-14]*^C^CLAYER;M;AN;;insert;c:/KESYM1/SEC-BUB;DRAG;\1;1;\
  2679. [T1-15]^c^CLAYER;M;AN;;insert;c:/KESYM1/AT200;DRAG;\96;;0;
  2680. [T1-16]^C^CWL
  2681. [T1-17]$I=DRSEL1 $I=*
  2682. [T1-18]$I=FURN $I=*
  2683. [T1-19]^c^CLAYER;M;EQ;;insert;c:/KESYM1/REFA;DRAG;\1;1;\
  2684. [T1-20]^c^CLAYER;M;F1;;insert;c:/KESYM1/QUEEN;DRAG;\1;1;\
  2685. [T1-21]^C^C
  2686. [T1-22]^C^CLAYER;M;CG;;
  2687. [T1-23]^C^CLAYER;M;D;;
  2688. [T1-24]^C^CLAYER;M;SA;;
  2689. [T1-25]^C^CLAYER;M;AN;;
  2690. [T1-26]^C^C
  2691. [T1-27]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P003;DRAG;\1;1;\
  2692. [T1-28]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P004;DRAG;\1;1;\
  2693. [T1-29]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P018;DRAG;\1;1;\
  2694. [T1-30]^C
  2695. [T1-31]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XE2;NEAR;\1;1;\
  2696. [T1-32]*^C^CLAYER;M;CR;;insert;c:/KESYM1/3MRX;NEAR;\1;1;\
  2697. [T1-33]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XCJ-BOX;DRAG;\1;1;\
  2698. [T1-34]^C
  2699. [T1-35]^C
  2700. [T1-36]*^C^CLAYER;M;D;;insert;c:/KESYM1/HVAC-2;INTE;\1;1;\
  2701. [T1-37]*^C^CLAYER;M;D;;insert;c:/KESYM1/HVAC-4;INTE;\1;1;\
  2702. [T1-38]^C
  2703. [T1-39]*^C^CLAYER;M;AN;;insert;c:/KESYM1/SEC-ARW;DRAG;\1;1;\
  2704. [T1-40]^c^cLAYER;M;AN;;insert;c:/KESYM1/AT200;DRAG;\96;;0;
  2705. [T1-41]^C^CWL
  2706. [T1-42]^C^C^P(LOAD "CW.LSP"));
  2707. [T1-43]$I=FURN $I=*
  2708. [T1-44]^c^CLAYER;M;EQ;;insert;c:/KESYM1/REFB;DRAG;\1;1;\
  2709. [T1-45]^c^CLAYER;M;F1;;insert;c:/KESYM1/QUEEN;DRAG;\1;1;\
  2710. [T1-46]^C^C
  2711. [T1-47]^C^CLAYER;M;IW;;
  2712. [T1-48]^C^CLAYER;M;DN;;
  2713. [T1-49]^C^CLAYER;M;RA;;
  2714. [T1-50]^C^CLAYER;M;EN;;
  2715. [T1-51]^C^C
  2716. [T1-52]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P005;DRAG;\1;1;\
  2717. [T1-53]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P006;DRAG;\1;1;\
  2718. [T1-54]^C^C^CLAYER;M;PF;;insert;c:/KESYM1/TUB5FT;DRAG;\1;1;\
  2719. [T1-55]^C
  2720. [T1-56]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XE3;NEAR;\1;1;\
  2721. [T1-57]*^C^CLAYER;M;CR;;insert;c:/KESYM1/3W;NEAR;\1;1;\
  2722. [T1-58]*^C^CLAYER;M;LT;;insert;c:/KESYM1/2X4LITE;INTE;\1;1;\
  2723. [T1-59]^C
  2724. [T1-60]^C
  2725. [T1-61]*^C^CLAYER;M;SA;;insert;c:/KESYM1/6INFLX;NEAR;\1;1;\
  2726. [T1-62]^C^C^P(LOAD"GRD.LSP"));
  2727. [T1-63]*^C^CLAYER;M;SA;;insert;c:/KESYM1/TSTAT;DRAG;\1;1;0;
  2728. [T1-64]*^C^CLAYER;M;AN;;insert;c:/KESYM1/NA;DRAG;\1;1;\
  2729. [T1-65]^c^CLAYER;M;AN;;insert;c:/KESYM1/ATTCIR;DRAG;\96;;0;
  2730. [T1-66]^C^CWL;6
  2731. [T1-67]^C^C^P(LOAD "RW.LSP"));
  2732. [T1-68]^C^C^P(cond((null C:RS)(prompt "Loading...")(LOAD "RS.LSP")) (T (princ))) ^PRS
  2733. [T1-69]^c^CLAYER;M;EQ;;insert;c:/KESYM1/RANGE;DRAG;\1;1;\
  2734. [T1-70]^c^CLAYER;M;F1;;insert;c:/KESYM1/TWIN;DRAG;\1;1;\
  2735. [T1-71]^C^C
  2736. [T1-72]^C^CLAYER;M;EW;;
  2737. [T1-73]^C^CLAYER;M;MW;;
  2738. [T1-74]^C^CLAYER;M;LT;;
  2739. [T1-75]^C^CLAYER;M;HN;;
  2740. [T1-76]^C^C
  2741. [T1-77]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P007;DRAG;\1;1;\
  2742. [T1-78]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P008;DRAG;\1;1;\
  2743. [T1-79]^C^C^CLAYER;M;PF;;insert;c:/KESYM1/TUB5FT6;DRAG;\1;1;\
  2744. [T1-80]^C
  2745. [T1-81]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XE4;NEAR;\1;1;\
  2746. [T1-82]^C^C^CARC;\\\;;\;\
  2747. [T1-83]*^C^CLAYER;M;DL;;insert;c:/KESYM1/DEMO2X4;INTE;\1;1;\
  2748. [T1-84]^C
  2749. [T1-85]^C
  2750. [T1-86]*^C^C^P(LOAD "DUCT.LSP")):
  2751. [T1-87]^C^C^P(LOAD"GRD.LSP"));48;24;
  2752. [T1-88]^C
  2753. [T1-89]*^C^CLAYER;M;AN;;insert;c:/KESYM1/EL-1;DRAG;\1;1;\
  2754. [T1-90]^c^CLAYER;M;AN;;insert;c:/KESYM1/ATTELL;DRAG;\96;;0;
  2755. [T1-91]^C^CWL;8
  2756. [T1-92]^C^C^P(LOAD "OH.LSP"));
  2757. [T1-93]^C^C^P(cond((null C:RS)(prompt "Loading...")(LOAD "RS.LSP")) (T (princ))) ^PRS;
  2758. [T1-94]^c^CLAYER;M;EQ;;insert;c:/KESYM1/WTRHTR;DRAG;\1;1;\
  2759. [T1-95]^c^CLAYER;M;F1;;insert;c:/KESYM1/TWIN;DRAG;\1;1;\
  2760. [T1-96]^C^C
  2761. [T1-97]^C^CLAYER;M;ND;;
  2762. [T1-98]^C^CLAYER;M;OH;;
  2763. [T1-99]^C^CLAYER;M;OT;;
  2764. [T1-100]^C^CLAYER;M;SN;;
  2765. [T1-101]^C
  2766. [T1-102]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P009;DRAG;\1;1;\
  2767. [T1-103]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P010;DRAG;\1;1;\
  2768. [T1-104]^C
  2769. [T1-105]^C
  2770. [T1-106]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XE5;NEAR;\1;1;\
  2771. [T1-107]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XEPJ;NEAR;\1;1;\
  2772. [T1-108]*^C^CLAYER;M;LT;;insert;c:/KESYM1/2X2LITE;INTE;\1;1;\
  2773. [T1-109]^C
  2774. [T1-110]^C
  2775. [T1-111]^c^CLAYER;M;SA;;insert;c:/KESYM1/TSTAT;DRAG;\1;1;\
  2776. [T1-112]^C^C^P(LOAD"GRD.LSP"));24;24;
  2777. [T1-113]^C
  2778. [T1-114]^c^CLAYER;M;AN;;insert;c:/KESYM1/SEC-L;DRAG;\
  2779. [T1-115]^c^CLAYER;M;AN;;insert;c:/KESYM1/ATTHEX;DRAG;\1;1;0;
  2780. [T1-116]^C^C'SETVAR;THICKNESS;8';WL 
  2781. [T1-117]^c^cinsert;c:/KESYM1/MTLDKF;DRAG;\1;1;\
  2782. [T1-118]^c^cinsert;c:/KESYM1/MTLDKF;DRAG;\1;1;\
  2783. [T1-119]^c^CLAYER;M;EQ;;insert;c:/KESYM1/DRY;DRAG;\1;1;\
  2784. [T1-120]*^C^CHATCH;U;90;2.5;N;
  2785. [T1-121]^C^C
  2786. [T1-122]^C^CLAYER;M;ED;;
  2787. [T1-123]^C^CLAYER;M;wd;;
  2788. [T1-124]^C^CLAYER;M;CR;;
  2789. [T1-125]^C^CLAYER;M;PF;;
  2790. [T1-126]^C
  2791. [T1-127]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P011;DRAG;\1;1;\
  2792. [T1-128]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P012;DRAG;\1;1;\
  2793. [T1-129]^C
  2794. [T1-130]^C
  2795. [T1-131]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XWEXIT;NEAR;\1;1;\
  2796. [T1-132]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XEL-2;DRAG;\1;1;\
  2797. [T1-133]*^C^CLAYER;M;DL;;insert;c:/KESYM1/DEMO2X2;INTE;\1;1;\
  2798. [T1-134]^C
  2799. [T1-135]^C
  2800. [T1-136]^c^CLAYER;M;SA;;insert;c:/KESYM1/AFD;DRAG;\1;1;\
  2801. [T1-137]^c^CLAYER;M;SA;;insert;c:/KESYM1/SDMPR;DRAG;\1;1;\
  2802. [T1-138]^C
  2803. [T1-139]^c^CLAYER;M;AN;;insert;c:/KESYM1/SEC-R;DRAG;\
  2804. [T1-140]^c^CLAYER;M;AN;;insert;c:/KESYM1/ATT-RM1;DRAG;\1;1;0;
  2805. [T1-141]*^C^CLAYER;M;EWF;;insert;c:/KESYM1/XIN;NEA;\;;\
  2806. [T1-142]^C^C^P(cond((null C:FW)(prompt "Loading...")(LOAD "FW.LSP")) (T (princ))) ^PFw;
  2807. [T1-143]^c^CLAYER;M;EW;;insert;c:/KESYM1/8INCMU;DRAG;\1;1;\
  2808. [T1-144]^c^CLAYER;M;EQ;;insert;c:/KESYM1/WASH;DRAG;\1;1;\
  2809. [T1-145]*^C^CHATCH;U;0;2.5;N;
  2810. [T1-146]^C^C
  2811. [T1-147]^C^CLAYER;M;GD;;
  2812. [T1-148]^C^CLAYER;M;EWF;;
  2813. [T1-149]^C^CLAYER;M;EM;;
  2814. [T1-150]^C^CLAYER;M;DL;;
  2815. [T1-151]^C
  2816. [T1-152]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P013;DRAG;\1;1;\
  2817. [T1-153]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P014;DRAG;\1;1;\
  2818. [T1-154]^C
  2819. [T1-155]^C
  2820. [T1-156]*^C^CLAYER;M;OT;;insert;c:/KESYM1/C-1EXIT;DRAG;\1;1;\
  2821. [T1-157]*^C^CLAYER;M;OT;;insert;c:/KESYM1/2WAYAR;CENTER;\1;1;\
  2822. [T1-158]*^C^CLAYER;M;OT;;insert;c:/KESYM1/J-BOXC;DRAG;\1;1;\
  2823. [T1-159]^C
  2824. [T1-160]^C
  2825. [T1-161]^C
  2826. [T1-162]^C
  2827. [T1-163]^C
  2828. [T1-164]^c^CLAYER;M;AN;;insert;c:/KESYM1/SEC-UP;DRAG;\
  2829. [T1-165]^c^CLAYER;M;AN;;insert;c:/KESYM1/ATT-DR1;DRAG;\1;1;0;
  2830. [T1-166]^C
  2831. [T1-167]^C^C^P(cond((null C:KY)(prompt "Loading...")(LOAD "KY.LSP")) (T (princ))) ^PKY
  2832. [T1-168]^C^C^P(cond((null C:KY)(prompt "Loading...")(LOAD "KY.LSP")) (T (princ))) ^PKY
  2833. [T1-169]^C^CLAYER;M;EWF;;INSERT;18CHTCH;ENDPOINT,INT;\;;
  2834. [T1-170]*^C^CHATCH;U;90;4;N;
  2835. [T1-171]^C^C
  2836. [T1-172]^C^CLAYER;M;FP;;
  2837. [T1-173]^C^CLAYER;M;EWF;;
  2838. [T1-174]^C^CLAYER;M;EQ;;
  2839. [T1-175]^C^CLAYER;M;VC;;
  2840. [T1-176]^C 
  2841. [T1-177]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P015;DRAG;\1;1;\
  2842. [T1-178]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P016;DRAG;\1;1;\
  2843. [T1-179]^C
  2844. [T1-180]^C
  2845. [T1-181]*^C^CLAYER;M;OT;;insert;c:/KESYM1/C-2EXIT;DRAG;\1;1;\
  2846. [T1-182]*^C^CLAYER;M;EM;;insert;c:/KESYM1/EMERG;NEAR;\1;1;\
  2847. [T1-183]^C
  2848. [T1-184]^C
  2849. [T1-185]^C
  2850. [T1-186]^C
  2851. [T1-187]^C
  2852. [T1-188]^C
  2853. [T1-189]^c^CLAYER;M;AN;;insert;c:/KESYM1/SEC-DN;DRAG;\
  2854. [T1-190]^C^C^P(cond((null C:LD)(prompt "Loading...")(LOAD "KY.LSP")) (T (princ))) ^PLD
  2855. [T1-191]^C
  2856. [T1-192]^C^C^P(cond((null C:KY)(prompt "Loading...")(LOAD "KY.LSP")) (T (princ))) ^PKY 
  2857. [T1-193]^C^C^P(cond((null C:KY)(prompt "Loading...")(LOAD "KY.LSP")) (T (princ))) ^PKY 
  2858. [T1-194]*^C^CLAYER;M;EWF;;INSERT;18CHTCH;ENDPOINT,INT;\2;;
  2859. [T1-195]*^C^CHATCH;U;0;4;N;
  2860. [T1-196]^C
  2861. [T1-197]^C^CLAYER;M;FF;;
  2862. [T1-198]^C
  2863. [T1-199]^C
  2864. [T1-200]^C
  2865. ***TABLET2
  2866. [T2-1]^H
  2867. [T2-2]^H
  2868. [T2-3]^H
  2869. [T2-4]7\
  2870. [T2-5]8\
  2871. [T2-6]9\
  2872. [T2-7]^O
  2873. [T2-8]'ZOOM W;
  2874. [T2-9]'ZOOM W;
  2875. [T2-10]'REDRAW 
  2876. [T2-11]<<135
  2877. [T2-12]<<90
  2878. [T2-13]<<45
  2879. [T2-14]4\
  2880. [T2-15]5\
  2881. [T2-16]6\
  2882. [T2-17]^D
  2883. [T2-18]'ZOOM A;
  2884. [T2-19]'ZOOM A;
  2885. [T2-20]'REDRAW;
  2886. [T2-21]<<180
  2887. [T2-22]<<\
  2888. [T2-23]<<0
  2889. [T2-24]1\
  2890. [T2-25]2\
  2891. [T2-26]3\
  2892. [T2-27]^G
  2893. [T2-28]'ZOOM D;
  2894. [T2-29]'ZOOM D;
  2895. [T2-30]'REDRAW;
  2896. [T2-31]<<225
  2897. [T2-32]<<270
  2898. [T2-33]<<315
  2899. [T2-34]0\
  2900. [T2-35].\
  2901. [T2-36],\
  2902. [T2-37]^B
  2903. [T2-38]'ZOOM D;
  2904. [T2-39]'ZOOM D;
  2905. [T2-40]'REDRAW;
  2906. [T2-41]1/2\
  2907. [T2-42]1/4\
  2908. [T2-43]3/4\
  2909. [T2-44]"\
  2910. [T2-45]'\
  2911. [T2-46]@\
  2912. [T2-47]^E
  2913. [T2-48]'ZOOM PREVIOUS;
  2914. [T2-49]'ZOOM PREVIOUS;
  2915. [T2-50]'REDRAW;
  2916. [T2-51]1/8\
  2917. [T2-52]3/8\
  2918. [T2-53]5/8\
  2919. [T2-54]-\
  2920. [T2-55]/\
  2921. [T2-56]X\
  2922. [T2-57]^Q
  2923. [T2-58]'PAN;
  2924. [T2-59]'PAN;
  2925. [T2-60]'REDRAW;
  2926. [T2-61]A\
  2927. [T2-62]B\
  2928. [T2-63]C\
  2929. [T2-64]D\
  2930. [T2-65]E\
  2931. [T2-66]F\
  2932. [T2-67]G\
  2933. [T2-68]H\
  2934. [T2-69]I\
  2935. [T2-70]'REDRAW;
  2936. [T2-71]J\
  2937. [T2-72]K\
  2938. [T2-73]L\
  2939. [T2-74]M\
  2940. [T2-75]N\
  2941. [T2-76]O\
  2942. [T2-77]P\
  2943. [T2-78]Q\
  2944. [T2-79]R\
  2945. [T2-80]'REDRAW;
  2946. [T2-81]S\
  2947. [T2-82]T\
  2948. [T2-83]U\
  2949. [T2-84]V\
  2950. [T2-85]W\
  2951. [T2-86]X\
  2952. [T2-87]Y\
  2953. [T2-88]Z\
  2954. [T2-89]%\
  2955. [T2-90]'REDRAW
  2956. ***TABLET3
  2957. [T3-1]$S=X $S=MOVE ^C^CMOVE 
  2958. [T3-2]$S=X $S=MIRROR ^C^CMIRROR 
  2959. [T3-3]$S=X $S=MEASURE ^C^CMEASURE 
  2960. [T3-4]$S=X $S=FILLET ^C^CFILLET 
  2961. [T3-5]$S=X $S=COPY ^C^CCOPY 
  2962. [T3-6]$S=X $S=OFFSET ^C^COFFSET 
  2963. [T3-7]$S=X $S=DIVIDE ^C^CDIVIDE 
  2964. [T3-8]$S=X $S=FILLET0 ^C^CFILLET R 0;;
  2965. [T3-9]$S=X $S=ARRAY ^C^CARRAY 
  2966. [T3-10]$S=X $S=CHAMFER ^C^CCHAMFER 
  2967. [T3-11]$S=X $S=BREAK2P ^C^CBREAK \F 
  2968. [T3-12]$S=X $S=SCALE ^C^CSCALE 
  2969. [T3-13]$S=X $S=TRIM ^C^CTRIM 
  2970. [T3-14]$S=X $S=ROTATE ^C^CROTATE 
  2971. [T3-15]$S=X $S=BREAKSPL ^C^CBREAK \F \@
  2972. [T3-16]^C^C^P(cond((null C:LEXPLODE)(prompt "Loading...")(LOAD"LEXPLODE.LSP")) (T (princ))) ^PLEXPLODE 
  2973. [T3-17]$S=X $S=STRETCH ^C^CSTRETCH C 
  2974. [T3-18]^C^CEXPLODE 
  2975. [T3-19]^C^C^P+
  2976. (defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
  2977. (setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
  2978. (if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
  2979. (m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
  2980. (if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
  2981. (initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
  2982. (if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
  2983. (menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
  2984. (defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
  2985. (if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
  2986. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
  2987. (if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
  2988. (defun perror (msg)(setq *error* m:err m:err nil)(princ))+
  2989. (defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
  2990. (setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
  2991. [T3-20]^c^c^cattedit 
  2992. [T3-21]^C(ASVE);
  2993. [T3-22]^C(ASVE);
  2994. [T3-23]^C^C^P(cond((null C:et)(prompt "Loading...")(LOAD"et.lsp")) (T (princ))) ^Pet t 
  2995. [T3-24]^C^C^P(cond((null C:et)(prompt "Loading...")(LOAD"et.lsp")) (T (princ))) ^Pet e 
  2996. [T3-25]^c^c^C(ASVE);
  2997. [T3-26]^c^c^C(ASVE);
  2998. [T3-27]$S=X $S=OSNAPC ^C^COSNAP 
  2999. [T3-28]$S=X $S=OSNAPC ^C^COSNAP 
  3000. [T3-29]^P(cond((null SSX)(prompt "Loading...")(LOAD"SSX.lsp")) (T (princ))) (SSX) 
  3001. [T3-30]^P(cond((null SSX)(prompt "Loading...")(LOAD"SSX.lsp")) (T (princ))) (SSX) 
  3002. [T3-31]^C^CU 
  3003. [T3-32]^C^COOPS 
  3004. [T3-33]^P(cond((null SSX)(prompt "Loading...")(LOAD"SSX.lsp")) (T (princ))) (SSX) 
  3005. [T3-34]^P(cond((null SSX)(prompt "Loading...")(LOAD"SSX.lsp")) (T (princ))) (SSX) 
  3006. [T3-35]^C^CCHPROP 
  3007. [T3-36]^C^CCHPROP 
  3008. ***TABLET4
  3009. [T4-1];
  3010. [T4-2];
  3011. [T4-3];
  3012. [T4-4];
  3013. [T4-5];
  3014. [T4-6];
  3015. [T4-7];
  3016. [T4-8];
  3017. [T4-9];
  3018. [T4-10];
  3019. [T4-11]$S=X $S=LINE ^C^CLINE 
  3020. [T4-12]$S=X $S=PLINE ^C^CPLINE 
  3021. [T4-13]$S=X $S=CIRCLE ^C^CCIRCLE 
  3022. [T4-14]$S=X $S=ARC ^C^CARC 
  3023. [T4-15]$S=X $S=ELLIPSE ^C^CELLIPSE 
  3024. [T4-16]*^C^CERASE 
  3025. [T4-17]ENDPOINT 
  3026. [T4-18]MIDPOINT 
  3027. [T4-19]INTERSECTION 
  3028. [T4-20]CENTER 
  3029. [T4-22]NODE 
  3030. [T4-23];
  3031. [T4-24];
  3032. [T4-25];
  3033. [T4-25];
  3034. [T4-26]$S=X $S=LIST ^C^CLIST 
  3035. [T4-27]$S=X $S=LIST ^C^CLIST 
  3036. [T4-28]^C^C^CIB 
  3037. [T4-29]$S=X $S=ATTDEF ^C^CATTDEF 
  3038. [T4-30]$S=X $S=ATTDEF ^C^CATTDEF 
  3039. [T4-31]$S=X $S=WBLOCK ^C^CWBLOCK 
  3040. [T4-32]$S=X $S=BLOCK ^C^CBLOCK 
  3041. [T4-33]$S=X $S=MINSERT ^C^CMINSERT 
  3042. [T4-34]$S=X $S=INSERT ^C^CINSERT 
  3043. [T4-35];
  3044. [T4-36]$S=X $S=POLYGON ^C^CPOLYGON 
  3045. [T4-37]$S=X $S=POINT ^C^CPOINT 
  3046. [T4-38]^C^CSOLID 
  3047. [T4-39]^C^CRC 
  3048. [T4-40]^C^CDONUT 
  3049. [T4-41]*^C^CERASE 
  3050. [T4-41]NEAR 
  3051. [T4-42]QUAD 
  3052. [T4-43]PERP 
  3053. [T4-44]INSERT 
  3054. [T4-45]TANG 
  3055. [T4-47]^C^CDIST 
  3056. [T4-48]^C^CSTATUS 
  3057. [T4-49]$S=X $S=DTEXT ^C^CDTEXT 
  3058. [T4-50]$S=X $S=DTEXT ^C^CDTEXT A 
  3059. [T4-51];
  3060. [T4-52];
  3061. [T4-53];
  3062. [T4-54];
  3063. [T4-55];
  3064. [T4-56];
  3065. [T4-57];
  3066. [T4-58];
  3067. [T4-59];
  3068. [T4-60];
  3069. [T4-61];
  3070. [T4-62];
  3071. [T4-63];
  3072. [T4-64];
  3073. [T4-65];
  3074. [T4-66];
  3075. [T4-67];
  3076. [T4-68];
  3077. [T4-69];
  3078. [T4-70];
  3079. [T4-71];
  3080. [T4-72]$S=X $S=AREA ^C^CAREA 
  3081. [T4-73]$S=X $S=id ^C^Cid 
  3082. [T4-74]$S=X $S=DTEXT ^C^CDTEXT F 
  3083. [T4-75]$S=X $S=DTEXT ^C^CDTEXT M 
  3084. [T4-76]^C^CDIM1 STATUS 
  3085. [T4-77]'setvar dimtsz 0;'SETVAR DIMASZ 4;
  3086. [T4-78]'SETVAR;DIMtsz;4;
  3087. [T4-79]'SETVAR;DIMSCALE 
  3088. [T4-80]'SETVAR;DIMASO 
  3089. [T4-81]^p(cond((null dimsetl)(prompt "Loading...")(LOAD"dsl.lsp")) (T (princ))) (dimsetl)
  3090. [T4-82]^p(cond((null dimsetl)(prompt "Loading...")(LOAD"dsl.lsp")) (T (princ))) (dimsetl)
  3091. [T4-83]$S=X $S=DIMLINEAR CONTIN 
  3092. [T4-84]$S=X $S=DIMLINEAR ^C^C^CDIM HORIZ 
  3093. [T4-85]
  3094. [T4-86]^C^C^P(IF(= (GETVAR"QTEXTMODE") 1)(SETVAR"QTEXTMODE"0)(SETVAR"QTEXTMODE"1))
  3095. [T4-87]^B
  3096. [T4-88]^C^CSNAP R ;0 
  3097. [T4-89]^C^CSNAP R ;60 
  3098. [T4-90]$S=X $S=GRID ^C^CGRID 1 
  3099. [T4-91]'SETVAR APERTURE 2;
  3100. [T4-92]'SETVAR PICKBOX 2;
  3101. [T4-93]^C^CSTYLE M1;; .9;;;;;
  3102. [T4-94]^C^CSTYLE M2;; .9;;;;;
  3103. [T4-95]^C^CSTYLE M3;; .9;;;;;
  3104. [T4-96];
  3105. [T4-97]^C^CDBLIST 
  3106. [T4-98]6C^CTIME 
  3107. [T4-99]$S=X $S=DTEXT ^C^CDTEXT R 
  3108. [T4-100]$S=X $S=DTEXT ^C^CDTEXT C 
  3109. [T4-101]UNDO 
  3110. [T4-102]'setvar dimtsz 0;'SETVAR;DIMASZ;6;
  3111. [T4-103]'SETVAR;DIMtSZ;6;
  3112. [T4-104]]'SETVAR;DIMTXT;
  3113. [T4-105]'SETVAR;DIMTOFL;
  3114. [T4-106]^p(cond((null dimsetl)(prompt "Loading...")(LOAD"dsl.lsp")) (T (princ))) (dimsetl);
  3115. [T4-107]^p(cond((null dimsetl)(prompt "Loading...")(LOAD"dsl.lsp")) (T (princ))) (dimsetl);
  3116. [T4-108]$S=X $S=DIMLINEAR BASELINE 
  3117. [T4-109]$S=X $S=DIMLINEAR ^C^C^CDIM VERT 
  3118. [T4-110];
  3119. [T4-111]^C^C^P(IF(= (GETVAR"BLIPMODE") 1)(SETVAR"BLIPMODE"0)(SETVAR"BLIPMODE"1))
  3120. [T4-112]^G
  3121. [T4-113]^C^CSNAP R ;15 
  3122. [T4-114]^C^CSNAP R ;75 
  3123. [T4-115]$S=X $S=GRID ^C^CGRID 12 
  3124. [T4-116]'SETVAR APERTURE 3;
  3125. [T4-117]'SETVAR PICKBOX 3;
  3126. [T4-118]^C^CSTYLE T1;; .9;;;;;
  3127. [T4-119]^C^CSTYLE T2;; .9;;;;;
  3128. [T4-120]^C^CSTYLE T3;; .9;;;;;
  3129. [T4-121];
  3130. [T4-122]^C^CLAYER;
  3131. [T4-123]^C^CLAYER S;
  3132. [T4-124]^C^C^P(cond((null C:TC)(prompt "Loading...")(LOAD "C:/ACAD/TC.LSP")) (T (princ))) ^ptc
  3133. [T4-125]^C^C^P(cond((null C:IT)(prompt "Loading...")(LOAD "C:/ACAD/IT.LSP")) (T (princ))) ^PIT
  3134. [T4-126]'REDRAW 
  3135. [T4-127]'setvar dimtsz 0;'SETVAR;DIMASZ;12;
  3136. [T4-128]'SETVAR;DIMtSZ;12;
  3137. [T4-129]^C^CDIM1 STATUS 
  3138. [T4-130]'SETVAR;DIMTOH;
  3139. [T4-131]^p(cond((null dimsetr)(prompt "Loading...")(LOAD"dsr.lsp")) (T (princ))) (dimsetr);
  3140. [T4-132]^p(cond((null dimsetr)(prompt "Loading...")(LOAD"dsr.lsp")) (T (princ))) (dimsetr);
  3141. [T4-133]$S=X $S=DIM ^C^CDIM LEADER 
  3142. [T4-134]$S=X $S=DIM ^C^CDIM ANGULAR 
  3143. [T4-135]
  3144. [T4-136]$S=X $S=AXIS ^C^CAXIS ON 
  3145. [T4-137]$S=X $S=DRAGMODE ^C^CDRAGMODE ON 
  3146. [T4-138]^C^CSNAP R ;30 
  3147. [T4-139]$S=X $S=SNAP ^C^CSNAP 
  3148. [T4-140]$S=X $S=GRID ^C^CGRID 24 
  3149. [T4-141]'SETVAR APERTURE 4;
  3150. [T4-142]'SETVAR PICKBOX 4;
  3151. [T4-143]^C^CSTYLE SX1;; .9;;;;;
  3152. [T4-144]^C^CSTYLE SX2;; .9;;;;;
  3153. [T4-145]^C^CSTYLE SX3;; .9;;;;;
  3154. [T4-146];
  3155. [T4-147]^C^C^P(cond((null C:GF)(prompt "Loading...")(LOAD"GF.LSP")) (T (princ))) ^PGF
  3156. [T4-148]^C^C^P(cond((null C:BN)(prompt "Loading...")(LOAD"bn.LSP")) (T (princ))) ^PBN
  3157. [T4-149]^C^C^P(cond((null C:CC)(prompt "Loading...")(LOAD"CC-LT.LSP")) (T (princ))) ^PCC
  3158. [T4-150]^C^C^P(cond((null C:FW)(prompt "Loading...")(LOAD"FW.LSP")) (T (princ))) ^PFW
  3159. [T4-151]EXIT;$S=X $S=S 
  3160. [T4-152]'SETVAR;DIMexo;6;
  3161. [T4-153]'SETVAR;DIMexe;6;
  3162. [T4-154]$S=X $S=VAR1 ^C^CDIM 
  3163. [T4-155]'SETVAR;DIMTOL;
  3164. [T4-156]^p(cond((null dimsetr)(prompt "Loading...")(LOAD"dsr.lsp")) (T (princ))) (dimsetr);
  3165. [T4-157]^p(cond((null dimsetr)(prompt "Loading...")(LOAD"dsr.lsp")) (T (princ))) (dimsetr);
  3166. [T4-158]$S=X $S=DIM ^C^CDIM DIAMETER 
  3167. [T4-159]$S=X $S=DIM ^C^CDIM ROTATED 
  3168. [T4-160]
  3169. [T4-161]$S=X $S=AXIS ^C^CAXIS OFF 
  3170. [T4-162]$S=X $S=DRAGMODE ^C^CDRAGMODE OFF 
  3171. [T4-163]^C^CSNAP R ;45 
  3172. [T4-164]^C^CDRAGMODE A 
  3173. [T4-165]^G
  3174. [T4-166]'SETVAR APERTURE;
  3175. [T4-167]'SETVAR PICKBOX;
  3176. [T4-168]^C^CSTYLE R1;; .9;;;;;
  3177. [T4-169]^C^CSTYLE R2;; .9;;;;;
  3178. [T4-170]^C^CSTYLE R3;; .9;;;;;
  3179. [T4-171]
  3180. [T4-172]^C^C^P(cond((null C:LF)(prompt "Loading...")(LOAD"LF.LSP")) (T (princ))) ^PLF
  3181. [T4-173]^C^C^P(cond((null C:LO)(prompt "Loading...")(LOAD"LF.LSP")) (T (princ))) ^PLO
  3182. [T4-174]^C^CLINETYPE;LOAD;*;KEELINE;
  3183. [T4-175]^C^C^P(cond((null C:PLT)(prompt "Loading...")(LOAD"PLOT.LSP")) (T (princ))) ^PPLT
  3184. [T4-176];
  3185. [T4-177]'SETVAR;DIMexo;12;
  3186. [T4-178]'SETVAR;DIMexe;12;
  3187. [T4-179]'SETVAR;DIMASZ;
  3188. [T4-180]'SETVAR;DIMZIN;
  3189. [T4-181]$S=X $S=DIM ^C^CDIM1 
  3190. [T4-182]$S=X $S=DIM ^C^CDIM CENTER 
  3191. [T4-183]$S=X $S=DIM ^C^CDIM RADIUS 
  3192. [T4-184]$S=X $S=DIMLINEAR ^C^CDIM ALIGNED 
  3193. [T4-185]
  3194. [T4-186]^C^CLL 
  3195. [T4-187]^C^CPURGE 
  3196. [T4-188]^C^C^CSAVE 
  3197. [T4-189]^C^C^CSAVE 
  3198. [T4-190]^C^CPLOT 
  3199. [T4-191]^C^CPRPLOT 
  3200. [T4-192]^C^CFILES 
  3201. [T4-193]^C^CHELP 
  3202. [T4-194]^C^CEND;
  3203. [T4-195]^C^CZA 
  3204. [T4-196]
  3205. [T4-197]^C^C^P(cond((null C:RS)(prompt "Loading...")(LOAD"RS.LSP")) (T (princ))) ^PRS
  3206. [T4-198]^C^C^P(cond((null C:FL)(prompt "Loading...")(LOAD"FL.LSP")) (T (princ))) ^PFL
  3207. [T4-199]^C^C^P(cond((null C:DL)(prompt "Loading...")(LOAD"DL.LSP")) (T (princ))) ^PDL
  3208. [T4-200]^C^C^P(cond((null C:er)(prompt "Loading...")(LOAD"er.lsp"))(T(princ)))^Per
  3209.